Bonjour,
Je signale que je n’ai jamais fait de VBA et que ca fait longtemps ue je n’ai plus fait de code.
J’essaie de faire un petit programme facilepour gérer des emplacements et je bloque j’ai besoin de votre aide
j’ai sur une feuille1 excel un tableau avec 2000 lignes et 100 colonnes.
Sur la première colonne j’ai des produits et sur les colonnes suivantes des emplacements.
sur un 2eme tableau en feuille2, j’ai un tableau à 2 colonnes. En 1ere la liste des emplacements et sur la seconde, je voudrais mettre une fonction qui me dit pour chaque emplacement si je le retrouve sur mon tableau de la feuille1
j’ai fait uen fonction qui ne fonctionne pas du tout;
je sais que la faàon de sortir de mon For n’est pas élégante masi je voulais juste d’abord avoir un résultat pour pouvoir faire les choses proprement ensuite…
[i]
'fonction qui permet de chercher si une chainre de caractere presente dasn une cellule est aussi dans le tableau
'celcher est la cellule à rechercher entrée en parametre
'cellules1 le tableau dans lequel je recherche
Function RechercheTab(celcher As Double, ParamArray cellules1()) As Integer
Dim i As Integer
Dim j As Integer
'parcours les lignes
For i = 0 To UBound(cellules1, 1)
'parcours les colonnes
For j = 0 To UBound(cellules1, 2)
'si le contenu de la cellule que j'ai mis en param est dans la cellule du tableau que je compare alor 0 sinon 1
If celcher = cellules(i, j) Then RechercheTab = 0
Else: RechercheTab = 1
Next j
Next i
End Function
[/i]
Merci d’avance pour votre aide