VBA cellule egale a une autre
Résolu
Abd3l0u
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
Abd3l0u Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Abd3l0u Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous,
Je suis debutant sur excel et VBA et j'aimerai une chose qui me parait simple mais je n'y arrive pas.
J'aimerai que sur ma feuille de calcul une cellule designee soit egale a une autre cellule.
Cependant, je veux que le changement se fasse automatiquement dans la seconde cellule lorsque le resultat de la premiere change.
J'espere que c'est assez clair. Merci par avance pour votre aide.
PS : desole pour les fautes et accent, je suis avec un clavier anglais.
Je suis debutant sur excel et VBA et j'aimerai une chose qui me parait simple mais je n'y arrive pas.
J'aimerai que sur ma feuille de calcul une cellule designee soit egale a une autre cellule.
Cependant, je veux que le changement se fasse automatiquement dans la seconde cellule lorsque le resultat de la premiere change.
J'espere que c'est assez clair. Merci par avance pour votre aide.
PS : desole pour les fautes et accent, je suis avec un clavier anglais.
A voir également:
- Si la valeur d'une cellule est égale vba
- Excel cellule couleur si condition texte - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Excel compter cellule couleur sans vba - Guide
- Excel si cellule contient partie texte ✓ - Forum Excel
2 réponses
Solution bis
A+
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim Addr As String
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Z7:Z10")) Is Nothing Then
For Each Cel In Range("Z7:Z10")
If Cel <> "" Then Addr = Cel.Address
Next Cel
If Addr <> "" Then
Range("Z11") = Range(Addr)
Else
Range("Z11") = ""
End If
End If
End Sub
A+
Pourrais tu prendre quelques minutes pour m'expliquer cette partie stp
If Not Intersect(Target, Range("Z7:Z10")) Is Nothing Then
For Each Cel In Range("Z7:Z10")
If Cel <> "" Then Addr = Cel.Address
Dans l'optique d'en savoir plus d'apprendre et de comprendre aussi merci
est équivalent à "si la cellule modifiée appartient à la plage Z7:Z10"
For Each Cel In Range("Z7:Z10")
If Cel <> "" Then Addr = Cel.Address
est équivalent à "balaye chaque cellule de la plage Z7:Z10 et, si la cellule n'est pas vide, affecte son adresse à la variable Addr".
De cette manière, Addr correspond à l'adresse de la dernière cellule renseignée.
A+