Découvrez
Digiposte !
Posez votre question Signaler

Code vba

fabieg 15Messages postés 7 juin 2005Date d'inscription - Dernière réponse le 9 juin 2005 à 15:42
Bonjour à tous, j'espère que quelqu'un pourra m'aider car la je galère...
J'ai marqué comme code vba:
Private Sub Userform_Initialize()
Dim Plus As String
LblRaison.Caption= "Raison Sociale" & Chr(10) & Sheets("bd").Range("A" & Lig).Value
et ça ne fonctionne pas ça m'affiche erreur d'éxécution 1004: erreur définie par l'application ou par l'objet

Je ne comprends pas où est mon erreur.
Merci d'avance pour votre aide
Lire la suite 

Code vba »

21 réponses
Réponse
+0
moins plus
Armojax 1368Messages postés 19 janvier 2005Date d'inscription 26 janvier 2012Dernière intervention 9 juin 2005 à 11:04
Bonjour fabieg,

Est-ce que :
LblRaison.Caption= "Raison Sociale" & Chr(10) & Sheets("bd").Range("A").Value & Lig
ne marcherait pas mieux ?

 Ajouter un commentaire
fabieg - 9 juin 2005 à 11:09
Non ça me mêt le même message d'erreur, décidément je ne vois pas ce qui cloche...
Ajouter un commentaire
Réponse
+0
moins plus
Armojax 1368Messages postés 19 janvier 2005Date d'inscription 26 janvier 2012Dernière intervention 9 juin 2005 à 11:16
.

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
fabieg 15Messages postés 7 juin 2005Date d'inscription 9 juin 2005 à 11:19
bah le pb c'est que je peux pas sélectionner simplement une cellule car en fait ça dépend de la sélection qui a été faite sur un autre userform. Je m'explique dans mon usfnew on choisit une raison sociale parmi les choix qui proviennent de ma colonne A de mon fichier et le résultat doit s'afficher dans mon userform affichage et donc dans LblRaison

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Armojax 1368Messages postés 19 janvier 2005Date d'inscription 26 janvier 2012Dernière intervention 9 juin 2005 à 11:28
Hello,

Bon, excuse-moi, j'ai répondu à côté.
Je me suis fait un form.
Ce que tu as écrit au début fonctionne, à condition que Lig soit défini. Ce n'est sans doute pas le cas...
Ajx.

 Ajouter un commentaire
fabieg - 9 juin 2005 à 11:41
stp après j'essaie de plus t'embeter...Tu peux m'expliquer comment je définie Lig?
Merci pour ton aide
Ajouter un commentaire
Réponse
+0
moins plus
fabieg 15Messages postés 7 juin 2005Date d'inscription 9 juin 2005 à 11:30
mais je fais comment pour le définir?

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Armojax 1368Messages postés 19 janvier 2005Date d'inscription 26 janvier 2012Dernière intervention 9 juin 2005 à 11:53
Fabieg,

Je suppose que dans ta feuille "bd", en colonne A, tu as des "Raisons sociales", et que tu veux faire apparaître dans ton label, à l'initialisation de ton formulaire, celle qui se trouve en ligne n° <c'est toi qui le sait>.
"Lig" doit avoir la valeur de la ligne correspondante. Il faudrait en savoir davantage sur ton fichier et ce que tu veux obtenir pour voir comment paramétrer ça.

Ajx.

 Ajouter un commentaire
fabieg - 9 juin 2005 à 11:56
bah en fait le numéro de la ligne dépend du choix fait dans un userform précédent...
Armojax - 9 juin 2005 à 12:06
OK.
Donc, dans ton userform précédent, stocke quelque part cette information, dans une constante de portée générale, dans une cellule d'une feuille..., où tu veux.
Et ensuite, commence ta procédure d'initialisation avec : Lig = <la valeur stockée>.
Ajx.
fabieg › fabieg - 9 juin 2005 à 12:08
mais je la stocke comment l'info dans mon premier userform?
Ajouter un commentaire
Réponse
+0
moins plus
WhiteFang 2079Messages postés 1 septembre 2002Date d'inscription 9 juin 2005 à 13:11
;-)

Tu crées un module, que tu nommes "Variables" ou "Définitions" pour plus de lisibilité...

Dans ce module tu crée une variable :

Public Lig As QuelqueChoseQuiCorrespondAuContenu

Ensuite, dans ton code, il te suffit de dire Lig=xxx
...

;-)

Ps : Tu n'est pas obligé de créer un module, du moment que tu définis ta variable HORS d'une Sub... Mais la maintenance sera plus difficile...

Ajouter un commentaire - Site web
fabieg - 9 juin 2005 à 14:36
Merci beaucoup! et par contre si j'en ai plusieurs des "Lig" qui se réfèrent à différentes colonnes je les écrit tous? et je les différencie comment? Lig1,Lig2...?
fabieg - 9 juin 2005 à 14:44
Malheureuresement mon code ne fonctionne toujours pas...
Voici ce que j'ai mis dans mon premier userform:
'définition'
Public Lig As RaisonSociale
et dans mon deuxième userform:
Private Sub Userform_Initialize
Lig = RaisonSociale
Dim Plus As String
LblRaison.Caption = Sheets("bd").Range("A").Value & Lig

et ça m'affiche l'erreur 1004 erreur définie par l'application ou par l'objet...
Pouvez-vous me dire ce qui ne va pas?
Merci d'avance
WhiteFang - 9 juin 2005 à 14:49
;-)

Public Lig As

-> INTEGER/LONG/STRING.....

;-)

Si c'est un N° de ligne Excel : Public Lig As Long

;-)
Ajouter un commentaire
Réponse
+0
moins plus
WhiteFang 2079Messages postés 1 septembre 2002Date d'inscription 9 juin 2005 à 14:47
;-)

Dans ce cas, tu peux aussi utiliser un tableau :

Public Lig()

Qui te crée une matrice vide, que tu peux ensuite redimensionner à souhait...

Redim Preserve Lig(10,10)

par exemple te recrée une struxture de 10 lignes/10 colonnes sans toucher à ce que tu avait précédemment....

Ensuite :

Lig(1,1)="toto"
Lig(2,1)="titi"......

;-)

Ajouter un commentaire - Site web
Afficher les 5 commentaires
WhiteFang - 9 juin 2005 à 15:29
;-)

OK ...

Cliques là : http://forum.aceboard.net/index.php?login=113149

Je t'attends...

;-)
fabieg - 9 juin 2005 à 15:36
je n'arrive pas à m'inscrire il me dit que la clé est fausse
WhiteFang - 9 juin 2005 à 15:42
;-)

il faut attendre le mail de confirmation, quand tu le reçois, tu cliques sur le lien et c'est bon...

;-)
Ajouter un commentaire
Posez votre question
Ce document intitulé « code vba » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Windows 8 - À quoi s'attendre ?