VBA cellule egale a une autre

Résolu/Fermé

Valeur
Vba

Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 - 5 mars 2014 à 09:00
Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 - 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.

A voir également:

Si la valeur d'une cellule est égale vba
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 mars 2014 à 12:30

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+

Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 1
5 mars 2014 à 12:41

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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 mars 2014 à 12:59

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+

Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 1
5 mars 2014 à 13:04

Merci beaucoup =D

Réponse 2 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 mars 2014 à 09:46

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+

Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 1
5 mars 2014 à 11:01

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

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
5 mars 2014 à 11:23

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+

Abd3l0u Messages postés 21 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 26 mars 2014 1
5 mars 2014 à 11:46

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

Discussions similaires

VBA : Copier valeur de cellules dans une autre feuilles

Compter dans VBA le nombre de cellule non vide dans une colonne

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Masquer des lignes en fonction de la valeur d'une cellule

Copier le contenue d'une cellule dans autre classeur

Afficher une msgbox si valeur dans une cellule