Identifier une valeur et la recopier plus bas

Bonjour,

Dans la ligne 5 de mon fichier Excel j'aimerais identifier toutes les cellules qui finissent par un 1 et les recopier plus bas. Par exemple O11 O21....

j'ai pensé a un code a peu pré comme celui ci, s'il peut être corrigé ce serait cool

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub test() Dim Plage As Range Dim Cel As Range Dim Adr As String   With Worksheets("Feuil1") 'en colonne C à partir de C5   Set Plage = .Range(.Cells(5, 3), .Cells(5, .Columns.Count).End(xlToRight))   End With   'Recherche les valeurs qui ont un 1 à la fin sur la ligne 5 (a partir de la cellule C5)   Set Cel = Plage.Find(   Right(« chercher sur la plage « set Plage », 1) = 1     'si trouvé, mémorise l'adresse et boucle en inscrivant 'les valeurs inscrites dans la plage nommée qui correspondent   If Not Cel Is Nothing Then   Adr = Cel.Address   Do Copier la valeur trouvée dans la cellule C13 D13 …. (plus il y en a plus on copiera les valeurs sur la ligne)   End Sub

---

merci beaucoup!!

Bonjour,
Proposition à tester.

bonjour rjamin,

Petit aparté sur ton code uniquement pour ma gouverne.
Tu utilises "shearch" que je n'ai jamais utilisé et, je crois, jamais rencontré sur ce site.
En regardant l'aide sur cette methode, je ne vois pas trop la différence avec la fonction 'instr". Peux-tu m'éclairer ?

Cordialement,

Bonjour,
Search permet de trouver la position de départ d'une sous chaine dans une chaine (même chose que la fonction de feuille Cherche.
Ici je cherche la position du 2ème signe $ dans l'adresse.
Tandis que Instr vérifie si une sous chaîne se trouve dans une chaine.

Bonjour Rjamin,

Il y a surement une raison qui m'échappe pour privilégier 'instr' à 'search' ou vice versa mais le fait est qu'elles retournent toutes deux la position de départ d'une sous chaine.

Si le but de 'instr' était uniquement de vérifier l'existence, il me semble que le retour serait "vrai" ou "faux" alors que dans l'exemple ci-dessous les deux fonction renvoient = 18
cela restera pour moi une des nombreux mystères de VBA.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub instr_search() texte = "le vba excel est difficile à comprendre" MsgBox InStr(1, texte, "difficile") 'aide vba :envoie une valeur de type Variant (Long) indiquant la position de la première occurrence d’une chaîne dans une autre. MsgBox WorksheetFunction.Search("difficile", texte) 'aide vba : recherche une chaîne de texte dans une seconde chaîne de texte, et renvoie le numéro de la position de départ de la première chaîne de texte à partir du premier caractère de la seconde chaîne de texte. End Sub

---

cordialement,