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