Macro Excel

Bonsoir

Voilà je viens de découvrir vba sous excel et je voudrais faire une macro mais en vain.

Si quelqu‘un peut m’aider ce serait sympa.

Voilà je voudrais cpier la cellule b2 dans b3 , d2 dans d3 , e2 dans e3 etc… sauf pour la colonne c et dans la condition ou a2=a3.

Merçi.

Remarque: c'et ma premiere participation a ce site.

Bonsoir

Pourquoi une macro? Une formule fait cela trés bien!

Cordialement

Bonsoir et bienvenue,

Dans le VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("a2:a3")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Range("a2") = Range("a3") Then
            Range("b3") = Range("b2")
            Range("d3") = Range("d2")
            Range("e3") = Range("e2")
        Else
            Range("b3, d3:e3").ClearContents
        End If
    End If
End Sub

Amicalement

Claude

édit: salut Amadéus que je n'ai pas vu passer

Bonsoir.

Je me permet de m'immiscer sur ce fil suite au code de Dubois.

Ma question, si vous le permettez est:

Que veut dire cette ligne de code que j'ai encore du mal à intégrer mais que je vois régulièrement sur le forum:

If Target.Count > 1 Then Exit Sub

Au besoin je créerai un nouveau post.

Merci.

pass-pass ,

à vrai dire, cette ligne ne sert à rien dans le cas précité

c'est surtout pour les Private Sub Worksheet_SelectionChange

Target.Count est le nombre de cellules sélectionnées

If Not Application.Intersect(Target, Range("a2:a3")) Is Nothing Then

ici, je veux agir suivant a2 ou a3 , donc sélectionner qu'une seule cellule,

si + d'une cellule => Exit Sub sort de la macro

Claude

OK.

Merci Claude. Je saisi mieux. Comme je n'ai pas encore eu besoin d'utiliser SelectionChange (à part quand je me trompe.) je comprends que je n'ai pas encore rencontré de Bog dans le code. En fait, c'est une précaution.

Ca m'enlève une épine du pied parmi tant d'autre

Bonne soirée.