macro sous ecxel

Question

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.

gbinforme · Answer

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

Macro sous ecxel

1 réponse

Discussions similaires

Newsletters