UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

[azerty6767]

Bonjour,

J'aimerais ajouter les valeurs de 2 champs issus d'un UserForm sur des lignes successives selon l'exemple ci-joint.

Est-ce que quelqu'un pourrait m'aider svp ?


D'avance merci,


Alain

 

[Hervé]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

bonjour

j'ai compris que tu voulais renvoyer la donnée à l'intersection des lignes et colonnes, un code à essayer :

Private Sub CommandButton1_Click()
Dim colonne As Range
Dim ligne As Range

Set colonne = Rows(9).Find(TextBox2)
Set ligne = Columns(1).Find(TextBox1)

If Not colonne Is Nothing And Not ligne Is Nothing Then
    Cells(ligne.Row, colonne.Column) = TextBox1
Else
    MsgBox "Données non trouvées.", , "Attention..."
    Exit Sub
End If

End Sub

si c'est le cas, n'aurais tu pas interet à utiliser des combobox pour limiter les choix de l'utilisateur ?

salut

 

[azerty6767]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

bonjour

j'ai compris que tu voulais renvoyer la donnée à l'intersection des lignes et colonnes, un code à essayer :

Private Sub CommandButton1_Click()
Dim colonne As Range
Dim ligne As Range

Set colonne = Rows(9).Find(TextBox2)
Set ligne = Columns(1).Find(TextBox1)

If Not colonne Is Nothing And Not ligne Is Nothing Then
    Cells(ligne.Row, colonne.Column) = TextBox1
Else
    MsgBox "Données non trouvées.", , "Attention..."
    Exit Sub
End If

End Sub

si c'est le cas, n'aurais tu pas interet à utiliser des combobox pour limiter les choix de l'utilisateur ?

salut

Bonjour,

Non ce n'est pas exactement ça.

En fait, je ne dispoe, au départ, que de la ligne (n°9) S34, S35, S36 etc.

Je veux ajouter "NONO" dans la colonne S35
--> Je veux que "NONO" soit ajouté ligne n°10, colonne S35

Je veux ensuite ajouter "NINI" dans la colonne S34
--> J'aimerais que "NINI" soit ajouter ligne n°11, colonne S34

--> c'est une sorte de planning où je veux ajouter un événement pour telle ou telle semaine, et que cela s'ajouter ligne après ligne...;


Peut-être ne suis-je pas assez clair ?... 🙂🙂



Merci...!



Alain

 

[Spitnolan08]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

Bonjour le fil,

ce ne serait pas le même sujet que :
Comment ajouter des infos d'une user form sur une ligne "libre"
et
Ajouter des valeurs de champs de UserForm dans des Champs précis d'une feuille

cordialement

 

[azerty6767]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

Oui effectivement c'est ça 🙂
Je n'ai toujours pas la solution malheureusement...
Mes interlocuteurs m'ont donné des pistes, mais le résultat voulu n'est toujours pas le bon...

Je crois que je vais abandonner 🙂 !!

Merci quand même,


Alain

 

[Excel_lent]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

Salut à tous et aux autres,

Vois si cela peut t'aider(si j'ai bien compris).

 

[azerty6767]

Re : UserForm : ajouter les valeurs de chps sur une ligne selon exemple ci-joint

super !

merci beaucoup beaucoup ! 😉





Alain