Recuperer donné celule A

[Gabs]

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 :

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 :

    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

 

[Guiv]

Re : Recuperer donné celule A

Bonjour Gabs, le fil,

A supposer que tu crées un label pour qui soit nommé LabelPlacesRestantes (dans la propriété "Name"), tu ajoutes ceci au code de ton userform:

Private Sub UserForm_Initialize()
LabelPlacesRestantes.Caption = Range("H9")
End Sub

Si tu veux pouvoir enregistrer plusieurs réservations sans que le userform ne se referme à chaque validation, tu peux aussi supprimer le "UnloadMe" et le remplacer par

()
LabelPlacesRestantes.Caption = Range("H9")

et remettre les textboxes Nom, Prénom etc à la valeur ""
Ainsi tu seras prêt pour enregistrer la réserv suivante avec le nombre de places restantes à jour.

Cordialement,
Guiv

 

[Gabs]

Re : Recuperer donné celule A

ne marcher pas , ,,, j'ai mis ceci

TextBoxTotal.Value = Sheets(1).Range("H37").Value

donc la sa marche probleme resolu tout fonctionne merci beaucoup a vous tous 😉