Discussion :

[awa123]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[rjamin]

Bonjour,
Proposition à tester.

[nibledispo]

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,

[rjamin]

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.

[nibledispo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,