Paramétrer un togglebutton

fleet21

XLDnaute Junior
Bonjour,

Voici ce que je souhaite faire : lors d'un appui sur le togglebutton copier deux cellules O2 :B2 en B2:C2 et si on rappuie sur le bouton que les deux cellules copiées en Bx:Cx soient effacées. Si des données sont présentes en Bx+1:Cx+1 elles sont remontées d'une ligne pour ne pas laisser de cellule vide entre deux cellules complétées. La suppression de la ligne en question n'est pas envisageable car d'autres valeurs sont présentes.

Code:
Private Sub ToggleButton1_Click()

    With ToggleButton1
    
        If .Value = True Then
        ToggleButton1.BackColor = 5950882
        Test "O2:P2"
    
        ElseIf .Value = False Then
        ToggleButton1.BackColor = 12701133
        'LIGNE MANQUANTE : effacer les données O2:P2 copiées dans Bx:Cx
    
        End If

    End With

End Sub
 
Dernière édition:

fleet21

XLDnaute Junior
Qu'est ce que tu ne comprends pas ?

Pas grand monde ouvre les fichiers joints sur le site, je le remarque au fil des discussions, et un fichier n'aidera pas plus vu qu'il n'est pas fonctionnel. Indiques ce qu'il te manque comme informations pour ta compréhension car ton commentaire n'est pas très constructif et du coup je ne comprends pas ou se situe ton incompréhension.
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Bonjour fleet21, re job75

Pas grand monde ouvre les fichiers joints sur le site.

@fleet21

Faut pas dire n'importe quoi, si il n'y aurait pas de fichiers joints, pense-tu sérieusement que nous on iraient les inventer?? o_O

De plus, tu sais très bien que les personnes qui t'aide sont des bénévoles, et c'est la moindre des choses de joindre un fichier exemple.
Créer un fichier, ce n'est pas notre job; c'est à toi de le faire vu que c'est toi qui demande de l'aide.

Si des données sont présentes en Bx+1:Cx+1
d'après ce que je comprends, c'est les cellules B3:C3; si c'est ça, pourquoi ne pas l'écrire directement?? :rolleyes:

copier deux cellules O2 :B2 en B2:C2
Pourquoi vouloir copier B2 en B2?? :confused:



EDIT: bonjour pierrejean :), vgendron :)
 
Dernière édition:

vgendron

XLDnaute Barbatruc
bonjour Fleet,@job75

Juste pour répondre au "et un fichier n'aidera pas plus "
juste en regardant ton code:
1) il faut déjà que NOUS commencions par créer un fichier avec un toggle bouton
2) Test "O2:p2" ==> Inventer une macro Test qui fait.... attend.. je sors ma boule de cristal
3) 'LIGNE MANQUANTE : effacer les données O2:p2 copiées dans Bx:Cx==> il faut aussi inventer une ligne qui va chercher des infos dans une ligne inconnue (x) pour les mettre dans une des feuilles en O2:p2


effectivement.. tu as raison. un fichier ne servira à rien....

Bientot..il va falloir qu'on devine aussi les questions....

VB:
Private Sub ToggleButton1_Click()

    With ToggleButton1
 
        If .Value = True Then
        ToggleButton1.BackColor = 5950882
       TEST "O2:P2"
 
        ElseIf .Value = False Then
        ToggleButton1.BackColor = 12701133
        'LIGNE MANQUANTE : effacer les données O2:P2 copiées dans Bx:Cx
 
        End If

    End With

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 991
Membres
101 856
dernier inscrit
Marina40