Chercher et remplacer valeur VBA
a
Bonjour,
je me permet de solliciter votre exepertise car je ne parviens pas à développer un VBA.
| Ce que je voudrais: Chaque TAG de ma colonne B de ma sheet TRANSFO correspond à une sheet (SWG) Exempe: 05-XFR823453 => 05-SWG823453 12-XFR825303 => 12-SWG825303 etc. Le but est pour tous les TAG de ma colonne B de ma sheet TRANSFO se terminant par "3", remplacer la valeur de la colonne C (POWER) par la valeur qui se trouve dans l'avant dernière cellule colonne B de la sheet associée. Exemple: 05-XFR823453 (se termine par "3") La sheet associé => 05-SWG823453 L'avant derniere valeur de la colonne = 20 (attention le nombre de ligne peut varier en colonne B) Je ne suis pas certain d'avoir été très explicite :s Merci pour votre aide ! | ||||||||||||||
Merci de votre aide !
Bon après-midi
Bonsoir,
Une 'tite macro qui devrait faire l'affaire :
Sub Galopin()
Dim i%, s$
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
s = Cells(i, 2).Value
If Right(s, 1) = "3" Then
s = Mid(s, 1, 3) & "SWG" & Mid(s, 7)
With Worksheets(s)
Cells(i, 3).Value = .Range("B" & .Range("B" & Rows.Count).End(xlUp).Row - 1).Value
End With
End If
NextA+
a
Merci galopin01 ! C'est parfait je l'ai adapté à mes besoins !
Au top !
Bonne journée