Lier des colonnes en VBA

Résolu
lilounice Messages postés 33 Statut Membre -  
lilounice Messages postés 33 Statut Membre -
Bonjour,

J'aimerais faire une check box qui lorsqu'elle est activée lie les plages A6:A60 et B6:B60.
Lorsque vraie le contenu de Ax et Bx sont obligatoirement le même
Si possible seulement si Bx= vide (si non garde l'ancienne valeur)
Lorsque fausse rien

J'ai trouvé des posts pour lier le contenu de cellules mais pas de colonnes vers une autre colonne

Merci d'avance pour votre aide !


1 réponse

via55 Messages postés 14730 Statut Membre 2 749
 
Bonjour

Code de la macro à lancer par un bouton ou en mettant le nom de la macro dans le code de la case à cocher
Sub liaison()
For n = 6 To 60
If Range("B" & n) = "" Then Range("B" & n).FormulaR1C1 = "=RC[-1]"
Next
End Sub


Code lié à la Chekbox :
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then liaison
End Sub


Cdlmnt
Via
0
lilounice Messages postés 33 Statut Membre 1
 
Merci ta solution fonctionne bien
Juste je n'avais pas précisé que A et B ne se trouvent pas sur la même feuille
Je trouve pas à quelle endroit je dois indiquer la feuille de la colonne A pour que RC renvoie à la bonne feuille

En tous cas merci
0
via55 Messages postés 14730 Statut Membre 2 749 > lilounice Messages postés 33 Statut Membre
 
Pourtant tu as fait ce qui fallait
Sauf si ta Feuille 1 ne s'appelle pas Feuil1 !!
mettre le bon nom dans la macro à la place de Feuil1

Si tu rencontres encore un problème postes ton fichier sur cjoint.com et reviens indiquer ici le lien alors fourni, je regarderai ça

Cdlmnt
Via
0
lilounice Messages postés 33 Statut Membre 1
 
j'ai essayer en mettant
FormulaR1C1 = "=Feuil1! RC[-1]"
Mais ça m'ouvre une boite de dialogue pour que je lui indique l'emplacement de "Feuil1"
0
lilounice Messages postés 33 Statut Membre 1
 
en effet j'ai essayé sur un nouveau classeur et ça fonctionne bien,
Je ne comprend pas d'ou vient le problème j'ai essayé tous les noms de la feuille...
0
lilounice Messages postés 33 Statut Membre 1
 
Bon j'ai renomé la feuille et ça a marché! donc merci
0