Soucis : Plusieurs CHECKBOX ..COMMENT FAIRE? pour renvoyer valeur diff

Soucis : Plusieurs CHECKBOX ..COMMENT FAIRE? pour renvoyer valeur diff - VB/VBA/VBS - Programmation

Marsh Posté le 27-08-2006 à 19:11:21    

Bonjour,
Voila mon probleme :
 
J'ai une plage contenant 40 cellules, chacune comportant une valeur, et chacune ayant à coté d'elle une case à cocher.
 
Je voudrais creer des feuilles qui prennent comme nom la valeur de la cellule correspondant à la case cochée.
 
J'ai creer un code qui avec une selection manuelle de cellules va creer les feuilles avec comme nom d onglet la valeur des cellules qui ont été préalablement selectionnées. (si vous avez bsoin d mon code dites le moi...)
 
Mais voila je voudrais faire ca avec des cases a cocher..
J'ai 40 cellules et ce serait trop long et trop lourd de faire : if checkbox1.. then.. else if checkbox2...
 
Je pense qu'il faudrait integrer un "checkboxi" dans une boucle.. Mais bon j suis un novice en vba et j'suis incapable de trouver la solution.. :(
 
J'ai aucun soucis a creer mes feuilles et tout ça, j voudrais juste qu on m dise comment faire pour utiliser les cases a cocher dans mon cas c est a dire pour qu'à l'aide d'un bouton je puisse creer un nombre de feuille dependant du nombre de cases cochées et de nommer ces feuilles selon la cellule qui correspond à chacune des cases ...
 
J ATTENDS VOS REPONSES MERCI BCP !!!  :ange:

Reply

Marsh Posté le 27-08-2006 à 19:11:21   

Reply

Marsh Posté le 27-08-2006 à 20:07:32    

Bonjour,
CheckBox, TextBox même combat :
Faire une recherche sur Google avec l'argument Module de classe
 
Bon courage !
A+

Reply

Marsh Posté le 27-08-2006 à 20:46:43    

erf ca m'aide pas plus que ça, j comprends pas trop, et ca repond pas des masses a ma question.. :s
 
On peut m'aider plz ? merci

Reply

Marsh Posté le 27-08-2006 à 21:33:41    

bonsoir,
Bon, comme je sens que la recherche ne te passionne pas je te te le donne tout cuit ici
YAPUKA adapter...
A+

Reply

Marsh Posté le 28-08-2006 à 00:13:39    

LoL! j te rmercie, ^^
 
J vais essayer d comprendre maintenant :D
 
A+

Reply

Marsh Posté le 28-08-2006 à 17:12:04    

Bonsoir,
Si cela peut t'aider regardes  
ci dessous
 
Je me suis largement inspiré d'un post récent de Galopin01
Tu peux cocher ou décocher une cellule de la colonne 2 (dans le modèle à toi de changer le N° de colonne et le X ) et ta gestion de checkbox devient une gestion de cellule.
Cordialement
 

Reply

Marsh Posté le 29-08-2006 à 11:04:45    

Ah oéééé :D Comment t as fait ça seniorpapou ???
 
J arrive pas a adapter le code ke tu m a filé galopin :s

Reply

Marsh Posté le 29-08-2006 à 14:39:30    

bonjour,
as-tu vu la macro dans feuil1?
Cordialement

Reply

Marsh Posté le 29-08-2006 à 16:32:06    

ben non impossible d y acceder c pour ca.
 
Tu sais pkoi ?

Reply

Marsh Posté le 29-08-2006 à 17:27:36    

tu enregistres le xls avant de l'ouvrir
la macro est dans feuil1


Message édité par seniorpapou le 29-08-2006 à 17:28:43
Reply

Marsh Posté le 29-08-2006 à 17:27:36   

Reply

Marsh Posté le 29-08-2006 à 22:02:55    

Genial merci bcp !!
 
J peux vous dmander autre chose pdt k j y suis :
 
Tout ce que j ai fait dans mon fichier ne sert a rien au final j usis degouté car quand je verrrouille ma feuille plus aucunes de mes macros ne fonctionnent alors :'( !
 
Comment j peux faire pour qu on puisse utiliser mes macros en verrouillant ma feuille ??
 

Reply

Marsh Posté le 30-08-2006 à 00:10:53    

c bon g trouvé la solution !
 
derniere ptite kestion :s  :
 
voila une de mes macros :
 
Sub colonne3()
Dim i As Integer
For i = 11 To 70
If Columns("J" ).Hidden Then
Range("I" & i).Value = Range("I" & i).Value - Range("J" & i).Value
With Columns("K" )
Range("K" & i).Formula = Range("B" & i).Value + Range("C" & i).Value + Range("D" & i).Value + Range("E" & i).Value + Range("G" & i).Value - Range("I" & i).Value - Range("J" & i).Value
End With
Else
Range("I" & i).Value = Range("I" & i).Value + Range("J" & i).Value
With Columns("K" )
Range("K" & i).Formula = Range("B" & i).Value + Range("C" & i).Value + Range("D" & i).Value + Range("E" & i).Value + Range("G" & i).Value - Range("I" & i).Value
End With
End If
 
 
 
    Next i
    With Columns("J" )
        .Hidden = Not .Hidden
    End With
    If Range("I10" ).Font.ColorIndex = 2 Then
    With Range("I10" ).Select
Selection.Font.ColorIndex = 1
    End With
    ElseIf Range("I10" ).Font.ColorIndex = 1 Then
    With Range("I10" ).Select
Selection.Font.ColorIndex = 2
End With
    End If
End Sub
 
 
Le soucis se situe dans la 1ère partie d mon code :
 
J voudrais juste k excel m affiche les formules kan j execute ma macro !
car il fait bien c que j lui dmande mais me laisse pas les formules c ki fait k j dois a chaque fois appuyer sur mon bouton pour que ma colonne K fasse sommes et differences des colonnes qui precedent..
 
Désolé d vous embeter encore :s :s
 
merci d vos reponses!

Reply

Marsh Posté le 30-08-2006 à 09:02:10    

Bonjour,
Est-ce cela que tu veux?
Je ne suis pas certain d'avoir compris car le style sms est difficilement assimilable par des dinosaures. lol
 
Sub colonne3()
Dim i As Integer
For i = 11 To 70
    If Columns("J" ).Hidden Then
        Range("I" & i).Value = Range("I" & i).Value - Range("J" & i).Value
        With Columns("K" )
                Range("K" & i).Formula = "=$B$" & i & "+$C$" & i & "+ $D$" & i & "+ $E$" & i & " + $G$" & i & "-$I$" & i & "-$J$" & i
        End With
         
    Else
        Range("I" & i).Value = Range("I" & i).Value + Range("J" & i).Value
        With Columns("K" )
            Range("K" & i).Formula = "=$B$" & i & "+$C$" & i & "+ $D$" & i & "+ $E$" & i & " + $G$" & i & "-$I$" & i
        End With
         
    End If
         
 
 
Next i
 
With Columns("J" )
    .Hidden = Not .Hidden
End With
 
If Range("I10" ).Font.ColorIndex = 2 Then
    With Range("I10" ).Select
        Selection.Font.ColorIndex = 1
    End With
ElseIf Range("I10" ).Font.ColorIndex = 1 Then
    With Range("I10" ).Select
        Selection.Font.ColorIndex = 2
    End With
End If
 
End Sub
 
Vérifies les formules s.t.p.
Cordialement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed