Recuperer donné celule A

Gabs · 17 Avril 2009

Bonjour je suis débutant ,

j'ai réussi a faire mon petit code avec des bout trouvé sur le net
sa marche impeccable !
c'est pour un spectacle , faire une liste complète des réservations

Le seul soucis c'est que je sais pas récupéré une cellule de la ligne qui va être écrite !

je m'explique , il ya un formulaire en VBA , une fois remplis il m'affiche les résultat a la suite de la liste en cours ! a partir de la colonne B

Dans la colonne A ce trouve un code(a chaque ligne different) que j'aimerai voir s'afficher dans une autre Userform mais IMPOSSIBLE de trouvé comment faire !

voici mon code :

Code:

Private Sub cmdAnnuler_Click()
    Unload Me
End Sub

Private Sub nbradu_Change()
    ' Vérifie si la valeur entrée est numérique
    If Not IsNumeric(nbradu.Text) Then
        Cancel = True ' Annule la validation de contrôle
        MsgBox "Veuillez entrer un nombre !"
    End If
End Sub

Private Sub nbrenf_Change()
    ' Vérifie si la valeur entrée est numérique
    If Not IsNumeric(nbradu.Text) Then
        Cancel = True ' Annule la validation de contrôle
        MsgBox "Veuillez entrer un nombre !"
    End If
End Sub

Private Sub cmdOk_Click()
    ' On teste la saisie du nom
    If Me.txtNom.Text = "" Then
        MsgBox "Vous devez entrer un nom."
        Me.txtNom.SetFocus
        Exit Sub
    End If
        ' On teste la saisie  du nombre d'adulte
    If nbradu = "" Then
        MsgBox "Vous devez entrer un nombre. (0 si nul)"
        Me.nbradu.SetFocus
        Exit Sub
    End If
            ' On teste la saisie du nombre d'enfant
    If nbrenf = "" Then
        MsgBox "Vous devez entrer un nombre. (0 si nul)"
        Me.nbrenf.SetFocus
        Exit Sub
    End If
    ' On teste la saisie du prénom
    If Me.txtPrenom.Text = "" Then
        MsgBox "Vous devez entrer un prénom."
        Me.txtPrenom.SetFocus
        Exit Sub
    End If

    ' Conversion du nom et prénom en NOMPRPRE
    Nomconverti = Application.WorksheetFunction.Proper(Me.txtNom.Text)
    Prenomconverti = Application.WorksheetFunction.Proper(Me.txtPrenom.Text)
    adulte = Application.WorksheetFunction.Proper(nbradu)
    enfant = Application.WorksheetFunction.Proper(nbrenf)
    ' Mise en place des valeurs saisies
    Range("B65536").End(xlUp).Offset(1, 0).Value = Nom
    Range("C65536").End(xlUp).Offset(1, 0).Value = Prenom
    Range("D65536").End(xlUp).Offset(1, 0).Value = adulte
    Range("E65536").End(xlUp).Offset(1, 0).Value = enfant
    

    Unload Me

End Sub

Voila , donc mes resultat s'affiche ici :

Code:

    Range("B65536").End(xlUp).Offset(1, 0).Value = Nom
    Range("C65536").End(xlUp).Offset(1, 0).Value = Prenom
    Range("D65536").End(xlUp).Offset(1, 0).Value = adulte
    Range("E65536").End(xlUp).Offset(1, 0).Value = enfant

et j'aimerai récuperé dans cette même ligne la cellule A
qui a dejas un code d'affiché
et la faire apparaitre dans une autre userform après validation de la première

MERCI ÉNORMÉMENT si vous pouvez me résoudre ça 🙂🙄

PS : désolé si je suis un peu trop vague ou si le code est pas beau je debut depuis hier mdr !
encore merci

Gabs · 18 Avril 2009

Re : Recuperer donné celule A

personne n'a d'idée .? 🙁 je vous joint quand même un aperçu

Donc j'aimerai récupéré les codes de la cellule A tout simplement

Guiv · 18 Avril 2009

Re : Recuperer donné celule A

Bonsoir Gabs et bienvenue au club,

Pas d'impatience! Tu as bien fait de faire remonter ton post.
Je l'avais déjà vu mais en fait, ce n'est pas très clair. Où est le 2 ème userform? Tes données restent-elles en ligne 65536?

Envoie un petit fichier exemple allégé et sans données confidentielles,
ça aidera les répondeurs potentiels.
(Tiens je fais des rimes...)

Cordialement,

Guiv

Gabs · 18 Avril 2009

Re : Recuperer donné celule A

Ben j'ai essayé d'envoyé mais sa pase pas , non mes donnée ne reste pas en ligne 65536

il ce mette a la suite de mes données ligne 1 ligne 2 etc...

vbacrumble · 18 Avril 2009

Re : Recuperer donné celule A

Bonsoir

tu as essayé de compresser ton fichier ?

Clic-droit -> Envoyer vers -> Dossiers compressés

Gabs · 18 Avril 2009

Re : Recuperer donné celule A

si dejas fait 🙂 mais tjrs trop gros , Ce lien n'existe plus
merci beaucoup

vbacrumble · 18 Avril 2009

Re : Recuperer donné celule A

Re

En modifiant ton userform (c-a-d supprimer les fioritures)

Ton fichier pouvait être posté ici.

Excel-lent · 18 Avril 2009

Re : Recuperer donné celule A

Bonsoir et bienvenu sur le forum Gabs,
Bonsoir Vbacrumble, Guiv,

Je ne vais pas être original, comme les copains... où est ta seconde UserForm?

Dans cette fameuse UserForm, comment souhaites-tu indiquer ton code de la colonne A?

Dans une TextBox? Si oui, voici comment faire :
-> insérer une TextBox dans ton UserForm
-> sur la ligne (Name) de la zone propriété de ta TextBox écrire : TextBoxCode
-> dans tes codes de ta UserForm, insérer cette ligne :

Code:

Dim ligne As Long
Me.TextBoxCode.Value = Range("A" & ligne)

Astuces complémentaire :
Pour tes différentes TextBox : Nom, Prénom, Nb Adulte, ...
penser à renseigner dans les propriétés la ligne "TabIndex".

Cela permet d'utiliser la touche tabulation lorsqu'on saisie ton formulaire pour aller de la case 1 vers la 2 et non pas de la case 1 vers la 4.

Tant qu'à faire une superbe UserForm, tu peux changer la police de tes deux CommandButton : Quitter, Valider pour qu'ils soient homogène avec le reste!

Lorsque tu fais un clic que la CommandButton, cliquer dans la zone propriété sur la ligne Font tu verras que tu peux changer la police mais également la taille de la police, mettre en gras, ...

Pour remplacer ce gris affreux de ces CommandButton par une couleur plus sympa, cliquer dans la zone propriété sur la ligne "Backcolor" (onglet "palette")

En retour, peux-tu m'indiquer comment tu as fais pour mettre cette image en arrière plan dans ton UserForm? Tu l'as créé au préalable sur un logiciel de dessin? Et après?

Bonne fin de soirée

vbacrumble · 18 Avril 2009

Re : Recuperer donné celule A

Bonsoir Excel-lent

Pour ta question concernangt l'image de fond de l'userform
Sélectionner l'userform puis

Voir Fenêtre/Propriétés dans VBE

Picture - >puis indiquez le chemin de l'image

nolich · 18 Avril 2009

Re : Recuperer donné celule A

Bonsoir Gabs et Guiv, re vbacrumble 🙂 , bonsoir à toutes et à tous 🙂

Gabs à dit:
Voila , donc mes resultat s'affiche ici :

Code:

Range("B65536").End(xlUp).Offset(1, 0).Value = Nom Range("C65536").End(xlUp).Offset(1, 0).Value = Prenom Range("D65536").End(xlUp).Offset(1, 0).Value = adulte Range("E65536").End(xlUp).Offset(1, 0).Value = enfant

et j'aimerai récuperé dans cette même ligne la cellule A
qui a dejas un code d'affiché
et la faire apparaitre dans une autre userform après validation de la première

Désolé Gabs mais je ne comprends pas ta demande (en rouge / gras / italique) dans ton message 😕 . Je suis peut-être idiot (sûrement !!!). Pourrais-tu exprimer plus clairement ce que tu souhaites faire avec les codes en colonne A ?

Veux-tu qu'ils soient différents de ton fichier exemple ? Que faire d'un autre UserForm, si toutefois il est vraiment nécessaire ? Des numéros qui se suivent en colonne A ne seraient-ils pas suffisants ?

@+

Excel-lent · 19 Avril 2009

Re : Recuperer donné celule A

Excel-lent à dit:
Code:

Dim ligne As Long Me.TextBoxCode.Value = Range("A" & ligne)

Plus précisément :

Code:

Dim ligne As Long

Ligne = [B65536].End(xlUp).Row

Me.TextBoxCode.Value = Range("A" & ligne)

A condition de placer le code ci-dessus avant celui figurant ci-dessous :

Code:

    Range("B65536").End(xlUp).Offset(1, 0).Value = Nom
    Range("C65536").End(xlUp).Offset(1, 0).Value = Prenom
    Range("D65536").End(xlUp).Offset(1, 0).Value = adulte
    Range("E65536").End(xlUp).Offset(1, 0).Value = enfant

Sinon remplacer :

Code:

Ligne = [B65536].End(xlUp).Row

par :

Code:

Ligne = [B65536].End(xlUp).Row - 1

Dans l'attente de te lire.

Merci pour la réponse VBAcrumble! C'est sympa, je me coucherais moins bête cette nuit 🙂

Bon Dimanche à tous

Gabs · 19 Avril 2009

Re : Recuperer donné celule A

Merci beaucoup j'ai reussi , c'est super simpa , et merci encore pour la réactivité 🙂

Code:

Dim ligne As Long

ligne = [B65536].End(xlUp).Row

TextBoxCode.Value = Range("A" & ligne)

End Sub

J'ai rajouté sa a la fin de mon code , tout compte fait je l'ai fait saffiché dans le même userform encore merci

Gabs · 19 Avril 2009

Re : Recuperer donné celule A

Encore une petite question , comment récupéré les donnée d'une cellule ? dans un label ou un txtbox ? merci beaucoup

Excel-lent · 19 Avril 2009

Re : Recuperer donné celule A

Bonjour Gabs, le fil,

Gabs à dit:
Encore une petite question , comment récupéré les donnée d'une cellule ? (...) un txtbox ?

Déjà expliqué dans mes précédents posts ci-dessus, et il semblerait que maintenant tu sache faire 😀

Regarde :

Gabs à dit:
(...)

Code:

Dim ligne As Long ligne = [B65536].End(xlUp).Row [COLOR="Blue"][B]TextBox[/B][/COLOR]Code.Value = Range("A" & ligne) End Sub

J'ai rajouté sa a la fin de mon code , tout compte fait je l'ai fait saffiché dans le même userform encore merci

----------------------------------------------------------------------------

Gabs à dit:
Encore une petite question , comment récupéré les donnée d'une cellule ? dans un label

C'est quasiment pareil :

Code:

Dim ligne As Long

ligne = [B65536].End(xlUp).Row

Me.[COLOR="Red"][I]Label[/I][/COLOR]Code.Caption = Range("A" & ligne )

Dans le cas où dans les propriétés de ton label, sur la ligne "name" tu es "LabelCode"

Bon Dimanche

Gabs · 19 Avril 2009

Re : Recuperer donné celule A

Merci , mais je me sui un peu trompé dans le terme de ma question , comment affiché par exemple sur mon fichier le nombre de place restante etc ..

mais dans l'userform en recuperant les donné des celulles directement dans le classeur il sont dejas affiché , en modifiant :

Code:

Dim ligne As Long

ligne = [B65536].End(xlUp).Row

TextBoxCode.Value = Range("A" & ligne)

End Sub

par :

Code:

Dim ligne As Long

TextBoxCode.Value = Range("H9")

End Sub

marche pas 🙁

Recuperer donné celule A

Gabs

XLDnaute Nouveau

Gabs

XLDnaute Nouveau

Pièces jointes

Guiv

XLDnaute Occasionnel

Gabs

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

Gabs

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

Excel-lent

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

nolich

XLDnaute Occasionnel

Excel-lent

XLDnaute Barbatruc

Gabs

XLDnaute Nouveau

Gabs

XLDnaute Nouveau

Excel-lent

XLDnaute Barbatruc

Gabs

XLDnaute Nouveau

Discussions similaires

Recuperer donné celule A

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Occasionnel

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency