Formulaire en VBA dans feuille Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Formulaire en VBA dans feuille Excel

cartman1706

Bonjour,

J'utilise plusieurs fichiers Excel qui ont un format bien determiné.
J'ai créé une macro qui exectute plusieurs actions sur le fichier Excel, et qui fait apparaitre une fenetre popup contenant un tout petit formulaire :
- Une action conditionnée : OUI ou NON
- Une zone de saisie

Mon probleme est que je ne sais pas exploiter ces infos une fois renseignées.
En clair j'aimerai que lorsque qu'on selectionne OUI cela supprime des données dans une collone de la feuille et que ce que l'on mette dans la zone de saisie soit collée dans toutes les lignes (contenant des infos) d'une colone ...

J'ai créé un UserForm, mis des boutons et tout mais ne sais ni quel code y mettre pour leur affecter des actions, ni comment recuperer ces dites actions dans la macro originale ...

Ps : vous aurez deviné que je suis un Noob en VBA

---------------
CarTaM SpiRit Is gOOd fOr Yoouuu ... !

Publicité

mmarle

Bonjour,

Tu devrais utiliser l'enregistreur de macro afin de comprendre le comportement et la syntaxe du VBA, en exécutant des actions basiques.

Par exemple tu lances l'enregistreur puis tu réalise les actions pour ton projet (Notamment la suppression de certaines données de ta colonne)
Cela se passe en 2 temps:
1 - Sélection des données.
2 - Suppression des données.
Ensuite tu stop l'enregistreur puis tu vas dans VBE et le code enregistré se situe dans un module.

Dans ton cas précis, il suffit de glisser ce code dans le control du bouton oui.

@bientôt

Cartman dit: Je vous e..... et je rentre à ma maison!

vave

Nice to meet me

Bonjour,

Pour affecter une macro à un bouton, tu fais un clic droit sur celui-ci.
Ca va te créer une macro comme celle ci :

Code :

Private Sub CommandButton1_Click()
'le code est à mettre ici
End Sub

Pour récupérer une valeur de zone de texte par exemple, il faut faire comme ci-dessous :

Code :

Dim MaValeur As String 'Tu déclare une variable
MaValeur = TextBox1.Value 'tu récupères la valeur dans ta variable

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cartman1706

merci bien pour ces info,

J'arrive a faire ce que je veux desormais pour l'action conditionnée. En revanche pour la zone de saisie il me met une erreur comme quoi il attend un End Sub mais je pige pas pourquoi ...

Code :

Private Sub Valider_Click()
Sub AffectOpenBat()
For i = 2 To 1000
If Range("O" & i).Value = "" Then
Else
Range("P" & i).Value = CodeOpenBat
End If
Next i
End Sub
UserForm1.Hide
End Sub

Message cité 1 fois

vave

Nice to meet me

Enlève ce que j'ai rayé

cartman1706 a écrit :

Code :

Private Sub Valider_Click()
~~Sub AffectOpenBat()~~
For i = 2 To 1000
If Range("O" & i).Value = "" Then
Else
Range("P" & i).Value = CodeOpenBat
End If
Next i
~~End Sub~~
UserForm1.Hide
End Sub

Message édité par vave le 26-03-2012 à 12:02:18

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cartman1706

effectivement c'est mieux mais ça n'ecrit toujours pas la valeur de CodeOpenBat dans les ligne P2, P3 .... tant que O2, O3... et non null

vave

Nice to meet me

C'est un textbox CodeOpenBat ?
Sinon, tu as un if/ then sans rien derrière.

Fais le comme ça:

Code :

For i = 2 To 1000
If Range("O" & i).Value <> "" Then
Range("P" & i).Value = CodeOpenBat
End If
Next i

Message édité par vave le 26-03-2012 à 12:35:13

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

cartman1706

oui c'est un textbox :
Plus haut dans le formulaire y'a :

Code :

Private Sub TextBox1_Change()
CodeOpenBat = TextBox1.Value 'Récupères la valeur dans ta variable
End Sub

je pige pas trop pourquoi ca ne marche pas ...

cartman1706

c'est pareil.
je te donne tout mon code (attention j'ai chagé des nom de champs et de variables ...

Code :

Private Sub Annuler_Click()
Unload UserForm1
End Sub
Private Sub ref_OpenBat_Change()
CodeOpenBat = ref_OpenBat.Value 'Récupères la valeur dans ta variable
End Sub
Private Sub suppr_NON_Click()
End Sub
Private Sub suppr_OUI_Click()
End Sub
Private Sub Valider_Click()
Sheets("Arbo" ).Select
'Supression des departements
If suppr_OUI Then
Sheets("Arbo" ).Select
Columns("D:D" ).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D1" ).Select
ActiveCell.FormulaR1C1 = "DEPARTEMENT"
With ActiveCell.Characters(Start:=1, Length:=12).Font
.Name = "Calibri"
.FontStyle = "Gras"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End If
'inscription du CodeOpenBat
For i = 2 To 1000
If Range("O" & i).Value <> "" Then
Range("P" & i).Value = CodeOpenBat
End If
Next i
'exit du popup
Unload UserForm1
End Sub

vave

Nice to meet me

Je ne peux pas tester, il faudrait que j'ai les mêmes noms de feuilles et le même UserForm.
Mais, à première vue je dirais que le code marche bien et que c'est ton CodeOpenBat qui est vide.

Tes variables ne sont pas déclarées et par défaut elles se déclarent à l'intérieur d'une Sub.
Or, dans ton cas, il faut la déclarer en tout début de module pour qu'elle soit valable dans toutes tes Sub.

Donc, tout en haut, avant ta première sub, déclare ta variable :

Code :

Public CodeOpenBat As String
____________________________________________
Private Sub Annuler_Click()
Unload UserForm1
End Sub

Essaye déjà ça et reviens si ça ne marche toujours pas

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

Publicité

cartman1706

trop fort ça marche !

Merci a toi !

je reviendrai sur ce sujet si jamais j'arrive pas a faire ce que je veux mais pour l'instant c'est tout bon !

merci encore !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Formulaire en VBA dans feuille Excel

Sujets relatifs
[VBA] Callback / Timeout	Excel 2010 : activation macro
numérotation d'une feuille prise par le net	[XML] Problème avec formulaire envoi
Code vba exportation requête acces vers Excel	Fête d'ami - VBA dans Excel 2007
besoin d'une petite ligne VBA pour Access	Un graphique Excel avec des aspects différents ! SVP !!! (VBA)
Plus de sujets relatifs à : Formulaire en VBA dans feuille Excel

Page générée en 0.063 secondes