Tableau VBA cellule vide
jimbodu54
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
je créé une application semblable à un site d'achat avec une navigation entre plusieurs userform chaque userform a des produit diffférent et lorsque je clike sur commander le nom du produit et le prix rentre dans un tableau excel si jappuis deux fois sur commander il rentre dans la première ligne et dans la deuxième grâce à offset(1,0)
jusque la tout va bien.
Seulement mes autre userform sont programmé pareil et si je commande un produit sur la 1 er userform il rentre dans le tableau excel mais si je vais sur une autre userform et que je commande un produit il ne fait pas offset(1,0) et va écraser mon premier produit commander dans mon tableau, alors que je voudrais qu'il se mette à la suite
voici le code d'une de mes userform
Const DebTab = "J7"
Const DebRes = "L7"
Dim Mc As Range
Private Sub Label16_Click()
Mc.Offset(0, 1).Value = "Chemise"
Mc.Offset(0, 2).Value = "10"
Set Mc = Mc.Offset(1, 0)
End Sub
Private Sub UserForm_Initialize()
Set Mc = Sheets("Panier").Range(DebTab)
While Not (IsEmpty(Mc.Value))
Set Mc = Mc.Offset(1, 0)
Wend
End Sub
Si quel qu'un a une idéé sa serais bien gentil car je ne sais pas du tout comment faire merci
je créé une application semblable à un site d'achat avec une navigation entre plusieurs userform chaque userform a des produit diffférent et lorsque je clike sur commander le nom du produit et le prix rentre dans un tableau excel si jappuis deux fois sur commander il rentre dans la première ligne et dans la deuxième grâce à offset(1,0)
jusque la tout va bien.
Seulement mes autre userform sont programmé pareil et si je commande un produit sur la 1 er userform il rentre dans le tableau excel mais si je vais sur une autre userform et que je commande un produit il ne fait pas offset(1,0) et va écraser mon premier produit commander dans mon tableau, alors que je voudrais qu'il se mette à la suite
voici le code d'une de mes userform
Const DebTab = "J7"
Const DebRes = "L7"
Dim Mc As Range
Private Sub Label16_Click()
Mc.Offset(0, 1).Value = "Chemise"
Mc.Offset(0, 2).Value = "10"
Set Mc = Mc.Offset(1, 0)
End Sub
Private Sub UserForm_Initialize()
Set Mc = Sheets("Panier").Range(DebTab)
While Not (IsEmpty(Mc.Value))
Set Mc = Mc.Offset(1, 0)
Wend
End Sub
Si quel qu'un a une idéé sa serais bien gentil car je ne sais pas du tout comment faire merci
A voir également:
- Tableau VBA cellule vide
- Tableau word - Guide
- Tableau ascii - Guide
- Trier un tableau excel - Guide
- Supprimer page word vide - Guide
- Tableau croisé dynamique - Guide
4 réponses
Bonjour,
Ta variable MC est déclarée en tête du module de chaque UserForm. Si tu veux qu'elle soit utilisable dans tous tes UserForms, sans perdre sa valeur après chaque UnLoad, tu dois la déclarer dans un module.
Pour cela, sous VBE, Insertion/Module, et dans ton module tu ne mets qu'une seule ligne :
Mes sources :Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard.
Ta variable MC est déclarée en tête du module de chaque UserForm. Si tu veux qu'elle soit utilisable dans tous tes UserForms, sans perdre sa valeur après chaque UnLoad, tu dois la déclarer dans un module.
Pour cela, sous VBE, Insertion/Module, et dans ton module tu ne mets qu'une seule ligne :
Public Mc As Range
Mes sources :Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard.
Bonjour et merci de ta réponse pijaku
Seulement j'ai insérer un module et tout et sa ne marche toujours pas alors j'ai certainement pas du faire la manie correctement que dois je enlever quand jajoute ce module?
Merci
Seulement j'ai insérer un module et tout et sa ne marche toujours pas alors j'ai certainement pas du faire la manie correctement que dois je enlever quand jajoute ce module?
Merci
En haut du module de l'userform tu as ceci :
Tu dois virer la déclaration de MC soit :
Ensuite, tu insères ton module et en entête de celui ci tu écris :
Const DebTab = "J7" Const DebRes = "L7" Dim Mc As Range Private Sub Label16_Click() 'bla bla bla
Tu dois virer la déclaration de MC soit :
Const DebTab = "J7" Const DebRes = "L7" Private Sub Label16_Click() 'Bla bla
Ensuite, tu insères ton module et en entête de celui ci tu écris :
Public MC As Range
Rebonjour pijaku j'ai fais la manip mais sa ne marche toujours pas quand j'appuis sur un des bouton commander un message d'erreur apparait voir pièce jointes je sais pas du tout comment faire merci de t'interresais a mon sujet :)
mince je sais pas comment on fais pour envoyer en pièce jointe
donc le message d'erreur c'est "seuls des commentaire peuvent apparaître après end sub end property ou end fonction " il me dis sa alors que je n'ai rien changer d'autre je ne comprend pas
donc le message d'erreur c'est "seuls des commentaire peuvent apparaître après end sub end property ou end fonction " il me dis sa alors que je n'ai rien changer d'autre je ne comprend pas
Salu,
Pour nous transmettre un fichier, il faut aller sur https://www.cjoint.com/ , sur ce site, tu créées un lien vers ton fichier, tu copies ce lien et reviens ici le coller dans une réponse.
Pour nous transmettre un fichier, il faut aller sur https://www.cjoint.com/ , sur ce site, tu créées un lien vers ton fichier, tu copies ce lien et reviens ici le coller dans une réponse.