Recopier données cases vides et cases à cocher

Bonjour,

Existe-t-il une solution pour que les 0 qui se trouvent sur la feuille2 (et qui sont une copie du menu déroulant de la feuille1 correspondant à une case vide) disparaissent et laissent place à un "blanc" ?

Ci-joint le fichier.

Les cases à cocher de la feuille1 peuvent-elles être copiées automatiquement sur la feuille2 (si c'est coché sur la feuille1, ça devient coché sur la feuille2) ?

Merci.

80xx-revue-offre.xlsx (59.69 Ko)

Bonjour et bienvenue sur le forum

Mets une autre formule dans les cellules de ta feuille2.

En K14 :

=SI(feuille1!H12 ="";"";feuille1!H12)

Bye !

Bonjour,

Ci-joint ton fichier test ...

69xx-revue-offre.xlsm (78.20 Ko)

Super, merci beaucoup.

J'avais mis ce code VBA, mais ça ne fonctionne pas si l'on met plusieurs cellules :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$12" And desactiver_event = Empty Then

desactiver_event = True

Sheets("PV transfert Contrat").Range("K14") = Range("H12")

desactiver_event = Empty

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$I$12" And desactiver_event = Empty Then

desactiver_event = True

Sheets("PV transfert Contrat").Range("M14") = Range("I12")

desactiver_event = Empty

End If

End Sub

Re,

Je pense qu'il y a une petite confusion ...

Tu peux ré-utiliser le fichier joint ...

Le code est le suivant :

Private Sub Worksheet_Activate()
 Feuil2.CheckBox1.Value = Feuil1.CheckBox1.Value
 Feuil2.CheckBox2.Value = Feuil1.CheckBox2.Value
 Feuil2.CheckBox3.Value = Feuil1.CheckBox3.Value
End Sub

Bonjour,

J'ai une question concernant les cases à cocher que vous avez intégré dans le fichier.

J'essaye de faire la même chose dans un autre fichier excel. Cependant, je ne sais pas comment intégrer dans la feuil1 les cases à cocher Nouvelle affaire, avenant, renégociation (ligne n° 6). Pourriez-vous m'indiquer la procédure si cela ne vous ennuie pas ?

Merci.

66xx-revue-offre.xlsm (77.99 Ko)

J'ai créé mes 3 cases à cocher, je les ai nommés (Name) et mis un nom à Caption (tous différemment).

J'ai intégré les codes VBA (les mêmes que sur le fichier que vous m'avez établi).

J'ai fait un copier-coller des 3 cases à cocher créés sur la feuille1 et je les ai collés sur le feuille2.

Cependant, une erreur s'affiche dans Visual Basic :

"Erreur de compilation : membre de méthode ou de données introuvable".

J'ai cherché mais je ne trouve pas d'où vient le problème.

Si vous avez une idée ? Merci.

Bonjour,

Sans ton nouveau fichier ... très difficile pour moi de deviner ce qui pourrait clocher ...

Au delà de l'exemple que je t'ai joint ... je suis assez démuni ...

Bonjour,

Comme je travaillais dans un fichier existant (mais non conçu par mes soins), il devait déjà y avoir une checkbox1 nommée quelque part.

En changeant le nom en checkbox100, 101 et 102, il n'y a plus d'erreur.

Tout s'affiche correctement.

Merci beaucoup pour votre implication.

Content que tout fonctionne ...

Merci pour tes remerciements ...

Bonjour,

Encore une autre question.

Sachant que j'ai plus d'une centaine de checkBox que je dois intégrer dans le code VBA, existe-t-il un moyen d'abréger ce code au lieu de l'écrire ligne par ligne pour chaque numéro de checkBox ?

Private Sub Worksheet_Activate()

Feuil6.CheckBox100.Value = Feuil1.CheckBox100.Value

Feuil6.CheckBox101.Value = Feuil1.CheckBox101.Value

Feuil6.CheckBox102.Value = Feuil1.CheckBox102.Value

Feuil6.CheckBox106.Value = Feuil1.CheckBox106.Value

Feuil6.CheckBox107.Value = Feuil1.CheckBox107.Value

Feuil6.CheckBox109.Value = Feuil1.CheckBox109.Value

Feuil6.CheckBox113.Value = Feuil1.CheckBox113.Value

Feuil6.CheckBox114.Value = Feuil1.CheckBox114.Value

Feuil6.CheckBox115.Value = Feuil1.CheckBox115.Value

Feuil6.CheckBox250.Value = Feuil1.CheckBox250.Value

Feuil6.CheckBox251.Value = Feuil1.CheckBox251.Value

Feuil6.CheckBox252.Value = Feuil1.CheckBox252.Value

Feuil6.CheckBox253.Value = Feuil1.CheckBox253.Value

Feuil6.CheckBox254.Value = Feuil1.CheckBox254.Value

Feuil6.CheckBox255.Value = Feuil1.CheckBox255.Value

Feuil6.CheckBox256.Value = Feuil1.CheckBox256.Value

Feuil6.CheckBox257.Value = Feuil1.CheckBox257.Value

Feuil6.CheckBox258.Value = Feuil1.CheckBox258.Value

Feuil6.CheckBox259.Value = Feuil1.CheckBox259.Value

Feuil6.CheckBox260.Value = Feuil1.CheckBox260.Value

Feuil6.CheckBox261.Value = Feuil1.CheckBox261.Value

Feuil6.CheckBox262.Value = Feuil1.CheckBox262.Value

Feuil6.CheckBox263.Value = Feuil1.CheckBox263.Value

Feuil6.CheckBox264.Value = Feuil1.CheckBox264.Value

Feuil6.CheckBox265.Value = Feuil1.CheckBox265.Value

Feuil6.CheckBox266.Value = Feuil1.CheckBox266.Value

Feuil6.CheckBox267.Value = Feuil1.CheckBox267.Value

Feuil6.CheckBox268.Value = Feuil1.CheckBox268.Value

Feuil6.CheckBox269.Value = Feuil1.CheckBox269.Value

Feuil6.CheckBox270.Value = Feuil1.CheckBox270.Value

Feuil6.CheckBox271.Value = Feuil1.CheckBox271.Value

Feuil6.CheckBox272.Value = Feuil1.CheckBox272.Value

Feuil6.CheckBox273.Value = Feuil1.CheckBox273.Value

Feuil6.CheckBox274.Value = Feuil1.CheckBox274.Value

Feuil6.CheckBox275.Value = Feuil1.CheckBox275.Value

etc.

Par ailleurs, sur ma feuil1, il y a ceci qui s'affiche, et ma question est la suivante : faut-il que cela apparaisse pour mes plus de 100 CheckBox ? :

Option Explicit

Private Sub CheckBox1_Click()

End Sub

Private Sub CheckBox100_Click()

End Sub

Private Sub CheckBox103_Click()

End Sub

Private Sub CheckBox106_Click()

End Sub

Merci par avance.

Bonjour,

Pour répondre à tes deux questions :

1. Dans ton module de la Feuille 1 ... tu n'as besoin d'aucun code ...

2. Dans ton module de la Feuille 6 ... pour tes plus de 100 checkboxes ...

Private Sub Worksheet_Activate()
Dim sh As Shape
  For Each sh In Feuil6.Shapes
      If InStr(1, sh.Name, "CheckBox") Then
        Feuil6.Shapes(sh.Name).OLEFormat.Object.Object.Value = _
        Feuil1.Shapes(sh.Name).OLEFormat.Object.Object.Value
      End If
  Next sh
End Sub

Super, ça fonctionne très bien.

Encore merci à vous de vous investir pour nous tous. On peut compter sur vous.

Re,

Ravi que cela fonctionne ...

Merci beaucoup pour tes gentils remerciements ...

Rechercher des sujets similaires à "recopier donnees cases vides cocher"