Discussion :

[sims92.66]

Bonjour à tous,

J'essaye de construire un code me permettant de faire une boucle cherchant la valeur de ma colonne C de ma feuille"valeur" est de l'associé à ma colonne B de ma feuille"resume" si sa colonne C = gvie


J'ai commencé ce code mais celui ci ne me fait pas ma boucle:

Merci pour votre aide

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
Sub actif()
 
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
 
For i = 2 To Me.Range("A" & Rows.Count).End(xlUp).Row
 
        If Cells(i, 3) = "gvie" Then
 
            Set Rg = Sheets("valeur").Range("A:A").Find(What:=Me.Range("A" & i).Value, LookAt:=xlWhole)
 
                Me.Range("B" & i).Value = Rg.Offset(0, 2).Value
                Exit For
 
        End If
 
Next i
 
End Sub

[casefayere]

Je n'ai pas ouvert le fichier. Penses à indenter tes codes et surtout... les balises

C'est quoi Me dans :

Code :

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

For i = 2 To Me.Range("A" & Rows.Count).End(xlUp).Row

[sims92.66]

me = ma feuille de calcul

mais c vrai il n'y a pas besoin de le spécifié

[casefayere]

sans savoir, est-ce la réponse

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
Sub actif()
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
With Sheets("resume")
  For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
    If Sheets("valeur").Cells(i, 3) = "gvie" Then
      Set Rg = Sheets("valeur").Range("A:A").Find(What:=.Range("A" & i).Value, LookAt:=xlWhole)
      .Range("B" & i).Value = Rg.Offset(0, 2).Value
      Exit For
    End If
  Next i
End With
 
End Sub

[sims92.66]

J'ai repris et modifié ton code.
Cependant il ne fait pas la boucle sur la colonne B
Le code ne fait que la recherche pour la premiere ligne

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
Sub actif()
Dim Sh As Worksheet
Dim Rg As Range
Dim i As Long
With Sheets("resume")
  For i = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
    If Sheets("resume").Cells(i, 3) = "gvie" Then
      Set Rg = Sheets("valeur").Range("A:A").Find(What:=.Range("A" & i).Value, LookAt:=xlWhole)
      .Range("B" & i).Value = Rg.Offset(0, 2).Value
      Exit For
    End If
  Next i
End With
 
End Sub

[casefayere]

Excuses-moi mais je me répète mets les balises code afin de rendre ton code plus clair => c'est obligatoire ! tu selectionnes tout ton code et appuies sur #

Enlève le "exit for" (peut-etre) dans ton code, comme je ne suis pas sur de ce que tu recherches, envoies un fichier simplifié.