besoin d'aide sur for...next

[patsyl60]

Je souhaite sur une colonne précise faire une boucle avec controle sur le texte. Si le texte contient " total", je dois faire un copier d'une cellule et de coller dans la celulle d'à coté à droite.J' ai du mal ... Pouvez vous m'aider ?

D'avance merci.

Patsyl60 😕

 

[jp14]

Re : besoin d'aide sur for...next

Bonsoir

Une boucle for next indique une solution en VBA.
Ci dessous le code pour réaliser ce type d'opération

Sub travdemande()

Dim cellule As Range
Dim plage As Range

Dim nomfeuille1 As String
Dim col1 As String
Dim lidep1 As Long

'**********************************
' a modifier
nomfeuille1 = ActiveSheet.Name '"Feuil1"
col1 = "a" 'colonne à tester
lidep1 = 2 ' ligne de départ
'************************************
With Sheets(nomfeuille1)
    Set plage = .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
    For Each cellule In plage
         If cellule.Value = " total" Then ' si on trouve la valeur on recopie
            cellule.Offset(0, 1).Value = cellule.Offset(0, 2).Value
            ' offset(même ligne = 0, décalage pour les colonnes)
            'colonne de départ a : +1 donne colonne b
            ' +2 donne colonne c
         End If
    Next cellule

End With

End Sub

Pour l'adapter il faut modifier la valeur associée aux variables et les valeurs des offset
A tester

JP

 

[patsyl60]

Re : besoin d'aide sur for...next

Merci pour ton aide. J'ai compris la macro. Je l'adapte à mon tableau. Juste petit souci lorque je tombe sur "total", je dois copier les cellules "D4 à G4" et les copier.Ques est l'équivalence de ton"cellule.Offset(0, 2).Value"?
D'avance merci.
A+

Patsyl60 😕

 

[jp14]

Re : besoin d'aide sur for...next

Bonjour

Juste petit souci lorque je tombe sur "total", je dois copier les cellules "D4 à G4" et les copier.Ques est l'équivalence de ton"cellule.Offset(0, 2).Value"?
Patsyl60 😕

Si "la colonne qui contient "total" est A

A B C D E F G
0 1 2 3 4 5 6

L'offset est 4 pour D, 6 pour G

Si c'est la colonne H
A B C D E F G H
-7 -6 -5 -4 -3 -2 -1 0
JP

 

[patsyl60]

Re : besoin d'aide sur for...next

ok super Merci de ta réponse.

A+

Patsyl60 🙂