Macro case à cocher

Bonjour,

je suis assez nouveau avec le VBA et j'aurais besoin d'aide concernant une case à cocher. J'ai une macro de créé et j'aimerais que dans l'objet de mon courriel, les informations de la cellule C2 se retrouve pour la ligne C, D2 pour la ligne D, etc.

Pouvez-vous m'aider?

Merci!

Sub Caseàcocher2_Cliquer()

Dim LeMail As Variant

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet Outlook)

With LeMail.CreateItem(olMailItem)
.Subject = "Un nouveau plan de signalisation a été créé" & "/" & " " & "plan numéro " & [C2]
.To = "test"
.CC = "test"
.Body = "De nouveaux panneaux de signalisation ont été créés. Il faudrait en faire l'installation. Merci pour votre collaboration."
.Display
End With

End Sub

Bonjour,

Il faut remplacer [C2] par & Range("C2")

Cdt

Bonjour,

fronck a écrit :

Il faut remplacer [C2] par & Range("C2")

Cdt

ce sont 2 syntaxes équivalentes...
La 1ère nécessite une analyse supplémentaire, c'est tout.
eric

Bonjour,

Effectivement [C2] fonctionne aussi.

Bonne soirée

En fait, excusez moi, je me suis complètement trompé.

ce que j'aimerais pouvoir faire, c'est de "draguer" la colonne C vers le bas et que chaque case à cocher soit lié avec sa ligne.

ex: la case à cocher en C5 va se référer à la cellule B5

la case en C6 va se référer à la cellule B6 etc

Bonjour,

ça ne veut pas dire grand chose, de plus pas de case à cocher en C (?)
C5 va se référer à la cellule B5 ???

Si tu veux mon avis, oublie les cases à cocher et met un caractère 'coché'.
Beaucoup plus simple à gérer et peut être fait par macro sur un double-clic.

Ex Windings :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column > 2 Or Target.Row = 1 Then Exit Sub
  Cancel = True
  Cells(Target.Row, 1) = IIf(Cells(Target.Row, 1) = "ü", "", "ü")
End Sub

(la table des car. ressort mal ici, met la police Windings sur les colonnes pour voir le résultat)
eric

PS : la table :

à la place du x ça peut être un vide ""