Discussion :

[AzelRoth]

Bonjour à tous,

Voilà j'avais déjà mis un post il ya a quelques jours et cela m'as beaucoup aider.
Mais une autre question devient necessaire pour l'avancement de mon projet.
Je dois faire une boucle de recherche dans la colonne A sur une chaine concatenée et lorsque je trouve la concatenation qui se trouve en A6 par exemple, il faut que je renvoi la valeur qui se trouve en face de celle-ci soit la valeur qui se trouve dans la cellule B6 vers la feuille1, si c'est en A50 il me faut la valeur de B50 que je renvoi en feuille1 et cela autant de fois que je trouve la concatenation en colonne A. Il faut toujours que je renvoi la valeur qui se trouve à la ligne Bx par rapport à ma concatenation qui se trouve en ligne Ax. Et là je coince sévère. Je peut déjà vous noter ma chaine concatenée, si ça peut vous permettre d'y voir plus clair sur ma recherche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro_recherche_et_colle()
 
Dim n As String
Dim var As Variant
Dim Num As Integer 
 
     Num = 1
     var = "n" & Num
 
     (la boucle que je ne reussi pas à coder)
 
     Num = Num + 1
 
End Sub

Je pense que ma chaine concatenée est correctement codée, ou je me plante
J'ai fais différents essais mais généralement mes essais me renvoient toute la colonne B en feuille 1, ce qui ne m'interesse pas. Qui serait en mesure de me donner un petit coup de main? Je vous remercie d'avance. Si vous avez besoin de précisions sur mon code ou des questions n'hésitez pas.

[laetitia]

bonjour AzelRoth le forum comme cela pas simple zip un exemple avec le resultat escompte sur un autre feuille tu la definis comment ta variable a rechercher dans un impubox !! une constance ect...

[AzelRoth]

Merci de répondre aussi vite.
Voici le code que j'ai jusq'à présent ainsi que le classeur avec des données bidon. Le but de mon projet est de faire une recherche sur les "n*" du tableau et de renvoyer les valeurs contenues dans les cellules qui sont en face des "nx" et de les incrémenter au cas où je trouve de nouveau la valeur d'une case(ça je pense que je trouverais par moi même) si cela peut t'éclairer.

[AzelRoth]

Bon voilà, j'avance gentillement sur ma macro, mais c'est pas encore ça.

Je place ma nouvelle ligne dans ma macro sur ma concatenation :

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
Sub Macro_recherche_et_colle()
 
Dim n As String
Dim var As Variant
Dim Num As Integer 
 
     Num = 1
     var = "n" & Num
 
     For Num = 1 to 250
          If var  <> 0 Then
              (la boucle que je ne reussi pas à coder)
          End If
     Next Num
 
End Sub

Je pense que cette version est mieux mais bon après je ne sais toujours pas comment faire la récupération de la cellule. Help please.

[laetitia]

bonjour AzelRoth le forum comme j ai compris!!!

Option Explicit

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim c As Range
Application.ScreenUpdating = False
Sheets(3).Activate
For Each c In Range("a1", Range("a65536").End(xlUp))
If Left(c, 1) = "n" And IsNumeric(Right(c, 1)) Then
c.Offset(0, 1).Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
End If: Next
End Sub

[AzelRoth]

C'est du très bon code tout ça ^^.
C'est génial ça fonctionne plus que bien. C'est cool à toi d'avoir pris du temps pour m'aider je t'en remercie. Tu avais très bien compris le post même si je n'avais pas forcement super bien expliquer. Merci en tout cas pour ce pas de géant.