Macro de recherche dans un tableau
Salut a tous et merci de votre aide precieuse.
J'aurais un ajout a faire a mon application EXCEL. Les instructions sont sur le fichier.
Capucin
Re Capucin le forum
voilà
a+
Papou
Sub cherche()
Dim i&, fin&, a&, x As Variant, n$, m, cel As Range, lig&
With Feuil6
fin = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To fin
For a = 4 To 5
If .Cells(i, a).Font.ColorIndex = 3 And .Cells(i, a) = "L" Then
If .Cells(i, 9) Like "*" & "(" & "*" Then
x = Split(.Cells(i, 9), "(")
m = Split(x(1), ")")
n = m(0)
Set cel = Feuil7.Range("A:A").Find(n, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row
.Cells(i, a) = Right(Feuil7.Cells(lig, 2), 2)
Else
x = Split(.Cells(i, 9), ",")
n = x(1)
Set cel = Feuil7.Range("A:A").Find(n, , , xlWhole)
If Not cel Is Nothing Then lig = cel.Row
.Cells(i, a) = Right(Feuil7.Cells(lig, 2), 2)
End If
End If
Next a
Next i
End With
End SubBonjour Banzaï
de même pour toi Banzaï
a+
papou
salut Banzai, c'est un plaisir de te revoir!
Ta version fonctionne mais donne un message: "plus de L dans..."
Papou, ca fonctionne tres bien. Je pense qu'on pourrais s'attaquer aux cellules avec "H".
Note pour Banzai: il y a une petite difference entre L et H: H ne vise que les colonnes E et F et c'est maintenant les 2 premiers caracteres hexa de la colonne 2 du tableau "VARIABLE" qui doivent etre colle a la place de H.
Bravo a vous deux, je pourrai ainsi entre directement des noms de Varibles dans mon code: COOL!
papou, ca marche tres bien
Bonsoir
CAPUCIN a écrit :Ta version fonctionne mais donne un message: "plus de L dans..."
Il faut le prendre dans le sens "Ta version fonctionne et donne un message: "plus de L dans..."
Cela indique que la macro est finie (enfin c'était le but de ce message)
Banzai, j'aurais du comprendre le but du message!
En passant, je savais que tu faisait de la magie, mais la.... ou se trouve ta macro?
Bonsoir
Dans la continuité
CAPUCIN a écrit :ou se trouve ta macro?
dans le module Adresses
Banzai, j'ai trouve l'endroit.
As-tu une idee pourquoi tout gele dans EXCEL si j'ai le message :Adresse inconnue : Retour à l'expéditeur, apres avoir volontairement fais une faute dans un nom de variable du tableau a traite. Je ne peux pas fermer le message box, ni excel!
Si j'ai plusieurs erreurs, est-ce qu'elle vont tous etre affiche dans le message box?
Bonsoir
Désolé mal testé
Dans la macro juste après le MsgBox rajoutes
MsgBox AdrNom & " : Adresse inconnue : Retour à l'expéditeur"
Exit SubCela obligera de corriger l'erreur (adresse inconnue)
Pour info : Sortir d'une macro qui boucle --> Faire Crtl + Pause
Banzai, si tu ne vois pas d'inconvenient, cette fois-ci je vais employe la macro de Papou. Cependant j'aimerais bien revenir sur la macro de la feuille 2 que tu m'as ecrit. Depuis qu'elle est implante, il n'y a plus moyen de faire des insertions de lignes, aurais-tu une sugestion, exemple desactiver la macro le temps de faire une insertion de ligne ou une autre methode.
Bonjour
CAPUCIN a écrit :Banzai, si tu ne vois pas d'inconvenient, cette fois-ci je vais employe la macro de Papou
Alors là aucun inconvénient
Sinon pas de suggestion
J'ai un programme avec lequel je suis dans le même cas et comme moyen je désactive la macro le temps de faire mes copier/coller et ensuit je la réactive
Si quelqu'un à une solution je suis preneur
Alors, est-ce possible d'activer et desactiver ta macro par un bouton? ou s'il faut la desactiver a la mitaine?