Discussion :

[martin41]

Bonjour,

je suis debutant en VBA et je bloque sur un point.
En effet j'aimerais que si la valeur d'une case de la première colonne (à partir de la 7 eme ligne) soit "TERPM" alors on me sélectionne la cellule de la 13ème colonne de la même ligne.
Voila mon code:

Code :

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

1
2
3
4
5
   Dim i As Integer
    Sheets("R02" & A & "J").Select
    i = 7
    If Worksheets("R02" & A & "J").Cells(i, 1).Value = TERPM Then
    Cells(i, 13).Select

Cependant il ne marche pas.

Si quelqu'un sait comment faire?

Merci d'avance.

[halaster08]

Bonjour,

Pour commencer utilise la balise code (#) pour mettre ton code c'est beaucoup plus lisible
Ensuite:

Cependant il ne marche pas.

Peux tu être moins précis? on es un peu noyer dans tous ces détails.

Le code s'éxecute-t-il? si non où et quelle est l'erreur

Sinon il me semble que tu as oublié le "end if"

[martin41]

Le code s'éxecute sans problem mais il n'y a aucun résultat...
oui le End if est plus bas mais je n'ai pas tout mis le code.
le voila:

Code :

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

1
2
3
4
5
6
7
8
9
Dim i As Integer
    Sheets("R02" & A & "J").Select
    i = 7
    If Worksheets("R02" & A & "J").Cells(i, 1).Value = TERPM Then
    Cells(i, 13).Select
 
    Selection.Copy Destination = Workbooks("Media de Rafagas FlujoA Colores.xlsm").Sheets("Hoja1").Cells(Rows.Count, "B").End(xlUp)(2)
    i = i + 1
    End If

[Menhir]

En effet j'aimerais que si la valeur d'une case de la première colonne (à partir de la 7 eme ligne) soit "TERPM" alors on me sélectionne la cellule de la 13ème colonne de la même ligne.

Pour que VBA scrutes plusieurs valeurs, il faut faire une boucle.

Code :

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

1
2
3
4
5
6
7
8
   Dim i As Integer
    Sheets("R02" & A & "J").Select
    For i = 7 to Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Value = "TERPM" Then
            Cells(i, 13).Copy Destination = Workbooks("Media de Rafagas FlujoA Colores.xlsm").Sheets("Hoja1").Cells(Rows.Count, "B").End(xlUp)(2)
            Exit For
        End If
    Next i

[martin41]

Bonjour,
Merci pour l'aide.
J'aimerais la copier et la coller sur un autre fichier

[Menhir]

Nos messages se sont croisés.
J'ai modifié le code du message précédent.

[Marc-L]

Bonjour,

pas besoin de boucle via un filtre …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[martin41]

Bonjour,

pas besoin de boucle via un filtre …

Bonjour,
comment je peux realizer un Filtre?

[martin41]

Nos messages se sont croisés.
J'ai modifié le code du message précédent.

Je viens d'essayer oui merci, mais c'est pareil, j'ai aucun message d'erreur mais rien ne s'affiche...

[halaster08]

Bonjour,
Merci pour l'aide.
J'aimerais la copier et la coller sur un autre fichier

Je suis du même avais que Marc-L, pour copier-coller l'utilisation d'un filtre me parait plus approprié.
Un tuto:http://philippetulliez.developpez.co...dvancedfilter/

[martin41]

Oui c'est bon j'ai mis en place un filter et tout fonctionne

Merci beaucoup