Macro sous ecxel

MAKOLN -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je viens juste de decouvrir le vba sur excel.
Voila j'ai une feuille excel et je voudrais copier la cellule b3 dans b4 e, d3 dans d4 et e3 dans e4 etc... sauf pou la colonne c et tout cela si a3=a4.
Si quelqu un peut m'aider ce serait sympa.
merci.
A voir également:

1 réponse

gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

Ta question est un peu imprécise mais je suis parti du fait que tu voulais faire ta fonction si tu saisissais en A4 la même valeur qu'en A3.

Donc je te propose cette macro événementielle qui recopie tant qu'il y a des valeurs dans la ligne précédente :

Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Column = 1 And sel.Count = 1 Then
    If sel.Value = sel.Offset(-1, 0).Value Then
        sel.Offset(0, 1).Value = sel.Offset(-1, 1).Value
        Dim col As Integer
        col = 3
        While sel.Offset(-1, col).Value <> ""
            sel.Offset(0, col).Value = sel.Offset(-1, col).Value
            col = col + 1
        Wend
    End If
End If
End Sub
0