VBA cellule egale a une autre

Résolu

Valeur
Vba

Abd3l0u Messages postés 21 Statut Membre -
Abd3l0u Messages postés 21 Statut Membre - 5 mars 2014 à 13:04

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.

Afficher la suite

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3360 Statut Membre 526
Solution bis
```
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+
1
1. Abd3l0u Messages postés 21 Statut Membre 1
  
  Nickel c'est ce que je voulais Merci beaucoup.
  
  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
  
  0
2. Gyrus Messages postés 3360 Statut Membre 526
  
  If Not Intersect(Target, Range("Z7:Z10")) Is Nothing Then
  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+
  
  0
3. Abd3l0u Messages postés 21 Statut Membre 1
  
  Merci beaucoup =D
  
  0
Réponse 2 / 2
Gyrus Messages postés 3360 Statut Membre 526

Bonjour,

Si tu souhaites reporter le résultat de A1 dans B1 tu n'as pas besoin de VBA, il suffit d'écrire la formule =A1 dans B1.

A+
0
1. Abd3l0u Messages postés 21 Statut Membre 1
  
  Merci pour ta reponse Gyrus, cependant je me rend compte que ce n'etait pas assez clair lol.
  
  En fait, je veux mettre la valeur d'une cellule egale a la derniere cellule non vide de la plage et que cela se change a chaque fois que la derniere cellule non vide change.
  
  Ma Syntaxe pour etre plus clair : Range("Z11").Value = Range("Z10").Value.End(xlUp).Value
  
  0
2. Gyrus Messages postés 3360 Statut Membre 526
  
  Tu peux utiliser l'évènement Change de la feuille.
  Dans la procédure suivante, on affecte à A1 la valeur de la dernière ligne renseignée de la colonne Z
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column = 26 Then
  Range("A1") = Range("Z" & Rows.Count).End(xlUp)
  End If
  End Sub
  
  A+
  
  0
3. Abd3l0u Messages postés 21 Statut Membre 1
  
  Voila ce que j'ai mis cela marche seulement sa me met la valeur de la cellule Z 25.
  Ma cible se trouve entre Z7 et Z10
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Column = 26 Then
  Range("Z11") = Range("Z" & Rows.Count).End(xlUp)
  End If
  End Sub
  
  0

VBA cellule egale a une autre

2 réponses

Discussions similaires

Newsletters