garder les infos d'une feuille vb inclus dans un fichier Excel

Question

Bonjour 

j'ai besoin de savoir comment dans un fichier excel faire la manip suivante.

j'ouvre un fichier excel  dans une colonne une information permait l'ouverture d'une
 d'une feuille et dans cette feuille je dois cocher ou pas suivant les cas.

La partie concernant l'ouverture de la feuille existe et fonctionne correctement,
je peux aussi cocher ou d&#233;cocher ensuite dans la fenetre ouverte mais rien n'est sauve
gard&#233;.

Pourriez vous  m'expliquer comment garder les infos sp&#233;cifiques a chaques cellules de la
colonne car lors de la fermeture de la feuille vb rien n'est conserv&#233; et je voudrais que cela soit attach&#233; au fichier excel.

Merci par avance de vos r&#233;ponses

jpleroisse · Answer

Bonjour,

D'abord est-ce en VBA sous Excel ou en VB 6 que tu travailles ?

Montre le code que tu utilises pour que l'on comprenne mieux.



jpleroisse

cs_yomenn · Answer

Bonjour et merci

voici le code qui se trouve sur la feuille excel lorque que je lance donc c'est du vba
enfin je crois, je n'y connais pas grand chose et suis plus que d&#233;butant.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 7 Then  If ActiveCell.Value "blanc" Or ActiveCell.Value "gris" Then
    UserForm1.Show
    End If
End If
End Sub

jpleroisse · Answer

Re,

Bon , la valeur gris ou blanc dans une cellule de la colonne 7 ouvre le UserForm.

Mais ensuite, que veux-tu faire ??, qui a t'il sur le Userform ?? et quel code y as-tu plac&#233; ??



jpleroisse

cs_yomenn · Answer

Alors ensuite sur le userform il y a 6 checkbox que je veux cocher ou pas suivant le cas et un bouton command qui fait un unload me de la fenetre.

J'aimerai que les cases coch&#233; du userform soient sauvegard&#233;s avec la feuille excel
car lors de l'appuie sur le bouton de commande tout est effac&#233;.

cs_yomenn · Answer

Sais tu comment on insere un fichier, ceci pour que tu comprennes ce que je souhaite faire

jpleroisse · Answer

Oui bien s&#249;r, mais pour t'aider ce qu'il faut savoir, c'est le code que tu as mis dans pa lroc&#233;dure des CheckBox.

Par exemple: ce code inscrit Bonjour en A1 et &#231;a va en B1



Private Sub CheckBox1_Click()

If CheckBox1 Then

    Range("A1").Value = "Bonjour"

    Range("B1").Value = "&#231;a va ?"

End If

End Sub



Si tu veux placer une valeur se trouvant danx un textBox, alors tu mets

Range("A1").Value = TextBox1.Text



jpleroisse

cs_yomenn · Answer

dans les checkbox je n'y ai rien rentr&#233; comme proc&#233;dure 
 lors de l'affichage de userform on coche les indications si je rappelle le userform 
en clicquant sur une cellule ayant les bonnes valeurs il doit me seulement afficher 
le userform avec ce que j'ai rentr&#233; auparavant. (comme ci je voulais le modifier)

si je savais comment insere un fichier dans mon message tu pourrais plus facilement 
comprendre ce que je veux car je dois assez mal m'expliquer

jpleroisse · Answer

OK, ton fichier est quand m&#234;me pas trop long ?, tu peux l'&#233;crire ici.

C'est facile, tu s&#233;lectionnes ton fichier (le texte) tu fais copier, tu
positionnes ton curseur ici dans la partie r&#233;serv&#233;e &#224; l'&#233;criture et tu
fais Edition / coller.



jpleroisse

cs_yomenn · Answer

Voila ce qu'il y a dans le userform1

Private Sub CheckBox1_Click()


End Sub


Private Sub CheckBox2_Click()


End Sub


Private Sub CheckBox3_Click()


End Sub


Private Sub CheckBox4_Click()


End Sub


Private Sub CheckBox5_Click()


End Sub


Private Sub CheckBox6_Click()


End Sub


Private Sub CommandButton1_Click()
Unload Me
End Sub


Private Sub UserForm_Activate()


End Sub


Private Sub UserForm_Click()


End Sub

Comme tu peux le voir, il n'y a rien, si tu refais le fichier excel ,tu verras
lorsque tu as dans la cellule la condition l'ouverture du userform1

on dira que dans la cellule G4 la condition est ok et les checkbox sont 1,3 et 5 sont
coch&#233;
dans la cellule G5 seul la checkbox 4 est coch&#233;
dans la G7 la checkbox 2et 6 sont coch&#233;
C'est juste coch&#233; ou pas dans le userform1 mais distinct suivant la cellule.
donc je te dis pas le probl&#232;me pour moije suppose que chaques cellules doivent gard&#233;
ses propres infos

jpleroisse · Answer

Re,

J'ai arrang&#233; le code, j'ai mis le code dans la proc&#233;dure Change, parce
que dans la proc&#233;dure SelectionChange, si le mot blans ou gris est
&#233;crit ou non dans une cellule le UserForm va apparaitre chaque fois que
tu vas te d&#233;placer dans la feuille.Ici le UserForm n'apparait que si tu
&#233;crit le mot et que tu te d&#233;places ou fais Enter.



Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("G4").Value = "gris" Or _

Range("G4").Value = "blanc" Then

UserForm1.Show

UserForm1.CheckBox1.Value = 1

UserForm1.CheckBox3.Value = 1

UserForm1.CheckBox5.Value = 1

End If

If Range("G5").Value = "gris" Or _

Range("G5").Value = "blanc" Then

UserForm1.Show

UserForm1.CheckBox4.Value = 1

End If

If Range("G7").Value = "gris" Or _

Range("G7").Value = "blanc" Then

UserForm1.Show

UserForm1.CheckBox2.Value = 1

UserForm1.CheckBox6.Value = 1

End If

Exit Sub

End Sub



jpleroisse

cs_yomenn · Answer

enfin penses tu que ce soit viable car la j'ai juste dix cellule dans la colonne
mais je pense qu'il y en aura 200  alors il faudra entrer pour toutes les cellules

et j'ai du merder quelque part car cela affiche aussi  la fenetre des autres cellules
et j'ai aussi le pb que si je coche une autre checkbox celle-ci n'est pas conserv&#233;.

jpleroisse · Answer

Re,

Pour &#234;tre s&#249;r, fais un copier/coller du code.

Maintenant, si il n'y a que dans les cellules G4,G5 et G7 que le code
doit agir, le nombre de cellules utilisis&#233;es n'a aucune importance pour
le code.

Si il y a autres choses, alors explique, parce que l&#224;, je ne comprend plus.



jpleroisse

cs_yomenn · Answer

j'ai fait un copier /coller et lorsque que le userform1 apparait (colonne G4) il


m'affiche ensuite celle de g5 surement car il passe sur la cellule apres le "enter"

Enfin le probleme est que si un jour la colonne G6 passe a gris ou blanc il faudra
que je revois le code

tu vois ce que je veux dire, n'y a t'il pas un moyen que, quelle que soit la cellule de la colonne G, un enregistrement puisse etre pris en compte
Car aujourd'hui je marque rouge mais demain c'est blanc et dans 10 jours c'est gris
et les checkbox entre blanc et gris ne sont pas toutes identique ce qui fait qu'il 
faille revoir le code a chanque changement

jpleroisse · Answer

Re,

Bien sur, il y a moyen de faire une boucle sur toute la colonne, le
probl&#232;me vient que si la boucle trouve une cellule avec blanc ou gris,
le unserForm n'apparaitra q'une fois avec la derni&#232;re commande prise en
compte.Je vais r&#233;fl&#233;chir &#224; tous cel&#224; pour voir ce que l'on peut faire
d'autres. Si je trouve mieux, je te posterai demain

 jpleroisse

cs_yomenn · Answer

merci encore

helioz · Answer

bjr a tous !!

j aurais voulu savoir comment faire l 'inverse...
comment faire pour que quand je coche un checkbox dans une form vb.net qu il aille cocher une case a cocher dans exel...
si quelqu un a une reponse ...
merci d'avance!

Garder les infos d'une feuille vb inclus dans un fichier Excel

16 réponses

Discussions similaires