Lier des colonnes en VBA

Résolu/Fermé
lilounice Messages postés 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 - 21 juil. 2015 à 15:41
lilounice Messages postés 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 - 21 juil. 2015 à 20:18
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 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
21 juil. 2015 à 16:25
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 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 1
21 juil. 2015 à 18:04
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 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703 > lilounice Messages postés 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015
21 juil. 2015 à 18:42
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 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 1
21 juil. 2015 à 18:20
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 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 1
21 juil. 2015 à 20:15
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 31 Date d'inscription dimanche 16 février 2014 Statut Membre Dernière intervention 27 juillet 2015 1
21 juil. 2015 à 20:18
Bon j'ai renomé la feuille et ça a marché! donc merci
0