Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008
-
19 juin 2008 à 10:38
Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008
-
26 juin 2008 à 09:09
Bonjour !!!!!!!!!!!!!!!!!!!!!!,
voili voilou !
jai crée 3 boutons options à l'aide du formulaire
chacun appéllé : année 1 , année 2 , année 3
jvoudrais faire une macro : qui puisse selectionné dans 2 autres feuilles un range selon ligne colonne selon ma case cocher je selectionnerais le même nombres de lignes mais il y aurra plus de colonne!
j'ai tenté un code, j"ai honte
mais si ca peus vous aider
Sub Option1_Click()
Dim ligne As Integer
Dim col As Integer
ligne = Cells(1, 3).Value
col = Cells(1, 4).Value
If Année 1.Value = True Then
Sheets("Feuil2").Select
Range("C6 & ligne, 4 + col ").Select
Sheets("Feuil3").Select
Range("C6 & ligne, 4").Select
ElseIf
Sheets("Feuil2").Select
Range("C6 & ligne , 4 + col + 52 ").Select
Sheets("Feuil3").Select
Range("C6 & ligne, 4 + col + 52 ").Select
ElseIf
Sheets("Feuil2").Select
Range("C6 & ligne , 4+ col +167").Select
Sheets("Feuile3").Select
Range("C6 & ligne , 4+ col+ 167").Select
End If
End Sub
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 19 juin 2008 à 15:57
Salut,
c'est pas tres claire... tu as combien de "case a cocher" ?... 3 ?
Comment s'appel ces "case a cocher" ? option1, option2 option3 j'imagine...
Si possible explique un peu plus le fonctionnement et le bute de tes 3 boutons et de tes "case a cocher"
je crois quand meme avoir compris... tu as inversé la methode car ce n'est pas un clique sur la "case cocher" qui doit regarder l'etat des boutons mais bien un clique sur un bouton qui doit regarder l'etat des "case a cocher"
Autre remarque : tu ne peux pas utiliser le elseif sans condition derriere tu doit l'utiliser comme un if. Dans du code evite les accents on est pas dans word . evite aussi les espaces dans les noms de control ou de variable. Par exemple : remplace Année 1 par Annee1
Sub Annee1_Click()
Dim ligne As Integer
Dim col As Integer
ligne = Cells(1, 3).Value
col = Cells(1, 4).Value
If Option1.Value = True Then
Sheets("Feuil2").Select
Range("C6 & ligne, 4 + col ").Select
Sheets("Feuil3").Select
Range("C6 & ligne, 4").Select
ElseIf
Option2.Value = True Then
Sheets("Feuil2").Select
Range("C6 & ligne , 4 + col + 52 ").Select
Sheets("Feuil3").Select
Range("C6 & ligne, 4 + col + 52 ").Select
ElseIf
Option3.Value = True Then
Sheets("Feuil2").Select
Range("C6 & ligne , 4+ col +167").Select
Sheets("Feuile3").Select
Range("C6 & ligne , 4+ col+ 167").Select
End If
End Sub
Le probleme avec ta methode c'est que tu vas ecrire 3 fois le meme code c'est a dire 1 par bouton. Le mieux serait de creer une sub routine dans un module et d'envoyer en parametre une info qui permetra a cette routine de savoir lors de sont appel, quel bouton a été cliquer . Ok je sais que ce que je viens d'ecrire ne te parle pas mais ne t'affole pas, revient juste avec les infos qui nous manque pour pouvoir t'aider.
Noublie pas non plus d'expliquer ce que tu veux faire de c'est cellules apres les avoir selectionnées
A+
P.S. il n'y a pas a avoir honte tu as au moins le merite d'essayer et c'est pas le cas de tout le monde... helas
Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008 19 juin 2008 à 17:10
merci big fish de bien vouloir te donnée la peine pour moi
alors j'ai bien mes 3 boutons de selection que j'ai renommé année1 , année2
j'ai suivit tes conseils en enlevants l'espace!
parcontre je n'arrive pas à savoir si se sont des option 1 ou 2 il faut regaré ou ?
ensuite enfaite je voudrais
selectionné une plage de mon calendrier qui va de 2008 à 2011
d'ou le + 52 (semaine) pour ensuite faire graph selon les données que j'ai dans mes cellules!
si je coche ma case 1 je selectionne mon année en cours
si le coche la 2 je coche l'année en cours + la suivante
la 3 eme pour le calendrier total.
mon calendrier comment en case C6
ligne représente le totale de ligne a traité et col toute les collonne de mon calendrier
Sub Boutondoption7_QuandClic()
Sheets("Feuil2").Select
Range("C6 & ligne , 4 + col + 52 ").Select
Sheets("Feuil3").Select
Range("C6 & ligne, 4 + col + 52 ").Select
End Sub
Sub Boutondoption9_QuandClic()
Sheets("Feuil2").Select
Range("C6 & ligne , 4+ col +167").Select
Sheets("Feuile3").Select
Range("C6 & ligne , 4+ col+ 167").Select
End Sub
voili voilou
mais ya surmen des ptie erreur qui traine et je c pas si ya que sa a mettre
Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008 24 juin 2008 à 10:49
petite précision pour mon range j'ai surmen un problme de syntaxe
je voudrais selon mes 3 cas selectionner :
à partir d'un range une plage de cellule commencant de ma cellule C6 allant de C6 jusqu'à une colonne mise en variable
et cela jusqu'à un nombre de ligne mise en varaible aussi
puis selon mes cas je fais un collonne + "quelquechose".
pas trés claire hein ? xD
j'ais fais ca
Range("C 6 + ligne, col ").Select
et pour mon 2eme cas par exemple
Range("C 6 + ligne ,col + 52 ").Select
mais sa ne fonnctionne pas
doi je mettre "&" comme
Range("C 6 & ligne ,col + 52 ").Select
merci à l'avance pour votre aide !!
Clashme
Messages postés29Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention17 juillet 2008 24 juin 2008 à 10:49
petite précision pour mon range j'ai surmen un problme de syntaxe
je voudrais selon mes 3 cas selectionner :
à partir d'un range une plage de cellule commencant de ma cellule C6 allant de C6 jusqu'à une colonne mise en variable
et cela jusqu'à un nombre de ligne mise en varaible aussi
puis selon mes cas je fais un collonne + "quelquechose".
pas trés claire hein ? xD
j'ais fais ca
Range("C 6 + ligne, col ").Select
et pour mon 2eme cas par exemple
Range("C 6 + ligne ,col + 52 ").Select
mais sa ne fonnctionne pas
doi je mettre "&" comme
Range("C 6 & ligne ,col + 52 ").Select
merci à l'avance pour votre aide !!