for each décallé puis collé

[carlos]

Bonjour
et oui g encore besoin d'un petit coup de pouce

a partir de la macro suivante j'aimerais que si la condition est vérifiée alors recuperer la valeur de la 'cellule' Sheets('equipe').Range('r3:v3') 12 lignes dessous (soit 'r15:v15') puis la coller en face de la 'cell' de Sheets('classe').Range('b5:b40') soit ('c5:c40')

Sub foreach()
Dim cell As Variant
Dim cellule As Variant
Dim selection1, selection2 As Range

For Each cell In Sheets('classe').Range('b5:b40')
For Each cellule In Sheets('equipe').Range('r3:v3')
If cellule = cell Then ' récuperer ICI
Next
Next

End Sub

merci

 

[Robert]

Re:for each décallé puis collé RB

Salut Carlos, salut le forum,

Ton code modifiié devrait convenir :

Sub foreach()
Dim cell As Range
Dim cellule As Range
For Each cell In Sheets('classe').Range('b5:b40')
For Each cellule In Sheets('equipe').Range('r3:v3')
If cellule.Value = cell.Value Then
cell.Offset(0, 1).Value = cellule.Offset(12, 0).Value
Exit Sub
End If
Next cellule
Next cell
End Sub

 

[CARLOS]

Re:for each décallé puis collé RB

ROBERT

C'EST FABULEUX

Une fois de plus ce site devrait etre soutenu par l'education national tant par ses qualités pedagogie que du savoir faire des intervenants ?

Merci