CheckBox et VBA
Résolu/Fermé
nicoco98
Messages postés
59
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
24 février 2011
-
2 juin 2009 à 13:59
nicoco98 Messages postés 59 Date d'inscription vendredi 18 avril 2008 Statut Membre Dernière intervention 24 février 2011 - 5 juin 2009 à 16:33
nicoco98 Messages postés 59 Date d'inscription vendredi 18 avril 2008 Statut Membre Dernière intervention 24 février 2011 - 5 juin 2009 à 16:33
A voir également:
- CheckBox et VBA
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
2 juin 2009 à 16:28
2 juin 2009 à 16:28
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
2 juin 2009 à 16:30
2 juin 2009 à 16:30
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
2 juin 2009 à 16:46
2 juin 2009 à 16:46
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
nicoco98
Messages postés
59
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
24 février 2011
5 juin 2009 à 16:33
5 juin 2009 à 16:33
Merci à toi! ca marche parfaitement!!