CheckBox et VBA
Résolu
nicoco98
Messages postés
59
Statut
Membre
-
nicoco98 Messages postés 59 Statut Membre -
nicoco98 Messages postés 59 Statut Membre -
Bonjour,
Je débute plus ou moins avec visual basic, j'arrive à faire quelques trucs mais là je bloque...
J'ai créé plusieurs checkbox dans ma feuille excel mais je n'arrive pas à les faire fonctionner dans ma macro
Pouvez vous m'aider?
Par exemple je voudrais que si checkbox1 est coché, excel me lance un calcul mais ce que j'ai fait ne marche pas...
Sub comparaison()
Sheets("Comparaison Générale").Activate
If CheckBox1.Value = True Then
Cells(3, 77) = "Agen"
Sheets("IGH MFC a et b + MFM").Activate
Range(Cells(9, 5), Cells(68, 9)).Select
Selection.Copy
Sheets("Comparaison Générale").Activate
Cells(3, 80).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
End Sub
qu'est ce qui ne va pas dans cette macro???
Merci d'avance
Cordialement
Nicolas
Je débute plus ou moins avec visual basic, j'arrive à faire quelques trucs mais là je bloque...
J'ai créé plusieurs checkbox dans ma feuille excel mais je n'arrive pas à les faire fonctionner dans ma macro
Pouvez vous m'aider?
Par exemple je voudrais que si checkbox1 est coché, excel me lance un calcul mais ce que j'ai fait ne marche pas...
Sub comparaison()
Sheets("Comparaison Générale").Activate
If CheckBox1.Value = True Then
Cells(3, 77) = "Agen"
Sheets("IGH MFC a et b + MFM").Activate
Range(Cells(9, 5), Cells(68, 9)).Select
Selection.Copy
Sheets("Comparaison Générale").Activate
Cells(3, 80).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
End Sub
qu'est ce qui ne va pas dans cette macro???
Merci d'avance
Cordialement
Nicolas
4 réponses
Bonjour,
Sub comparaison()
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
....la suite
End If
End With
End Sub
Sub comparaison()
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
....la suite
End If
End With
End Sub
Bonjour,
Sub comparaison()
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
....la suite
End If
End With
End Sub
Sub comparaison()
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
....la suite
End If
End With
End Sub
double message: Parkinson a encore frappé!
tu peux améliorer ta macro
en remplacant
Sheets("IGH MFC a et b + MFM").Activate
Range(Cells(9, 5), Cells(68, 9)).Select
Selection.Copy
Sheets("Comparaison Générale").Activate
Cells(3, 80).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
par
tablo=Sheets("IGH MFC a et b + MFM").Range(Cells(9, 5), Cells(68, 9)).value
.Range(cells(3,80),cells(62,84))=tablo
et donc:
Sub comparaison()
dim tablo
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
tablo=Sheets("IGH MFC a et b + MFM").Range(Cells(9, 5), Cells(68, 9)).value
.Range(cells(3,80),cells(62,84))=tablo
End If
End With
End Sub
tu peux améliorer ta macro
en remplacant
Sheets("IGH MFC a et b + MFM").Activate
Range(Cells(9, 5), Cells(68, 9)).Select
Selection.Copy
Sheets("Comparaison Générale").Activate
Cells(3, 80).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
par
tablo=Sheets("IGH MFC a et b + MFM").Range(Cells(9, 5), Cells(68, 9)).value
.Range(cells(3,80),cells(62,84))=tablo
et donc:
Sub comparaison()
dim tablo
With Sheets("Comparaison Générale")
If .CheckBox1 Then
.Cells(3, 77) = "Agen"
tablo=Sheets("IGH MFC a et b + MFM").Range(Cells(9, 5), Cells(68, 9)).value
.Range(cells(3,80),cells(62,84))=tablo
End If
End With
End Sub
