Discussion :

[Flamand059]

Bonjour à tous

Etant débutant en VBA j'aimerai être conseillé sur le sujet suivant :

- je cherche à mettre à jour avec les données d'un userform un tableau excel de Xlignes et ycollones . Je m'explique, Dans le userform j'ai les données 34- 100- 200 je dois donc rechercher la ligne 100 et incrementer la colonne 1 2 corespondante etc...

Un grand merci

[Invité]

Bonsoir,

A mon avis votre question manque de précision pour que l'on puisse vous aider.

Les données dont vous parlez se trouvent dans un seul objet (TextBox, ComboBox ou autres) ou dans 3 objet différents ?

S'il s'agit d'un seul objet, le séparateur entre les 3 nombres est toujours :

- un tiret et un espace ?

Que voulez-vous incrémenter dans la colonne 12 de la ligne définie par le 2ème nombre ?

[Flamand059]

Bonsoir jacques_jean

il s'agit de 4 textbox's (dans le userform) qui ne seront que des chiffres de 1 à X.
Ces chiffres correspondent aux differentes lignes du tableau excel qui comprend de plus 4 colonnes.
Exemple: si le nombre 100 est dans la texbox1 il faudra alors incrementer de 1 la colonne 1, recopier la date dans la colonne 2 tout ceci correspondant à la ligne 100
si le nombre 150 est dans la texbox2 il faudra alors incrementer de 1 la colonne 1, recopier la date dans la colonne 2 tout ceci correspondant à la ligne 150 etc.....
toutes les lignes de la colonne 3 s'incrementeront de 1 sauf celles sitées dans les texbox's (dans l'exemple 100 et 150)

Comment puis je m'y prendre?

Merci

[Invité]

Bonsoir,

Désolé, mais sans un exemple court mais précis je ne vois pas ce que vous voulez faire.

[Flamand059]

bonjour

ci joint le fichier compressé qui sera plus explicite.


Un grand merci

[laetitia]

bonjour Flamand059 jacques_jean le forum ton rar est pas plus explicite
tu parles de 4 textbox !!!!
dans ton fichier L user comporte 7 listbox????
le mieux tu refais un exemple sur un fichier vierge sur ta feuille tu mets un partie de ta base de donnees un bouton appel user bien sur un user avec les textbox puis en feuile 2 le resultat excompte

[Flamand059]

Bonjour laetitia

je reprends tout

dans le userform ce trouve le résultat du tirage
EX en 1(listbox 1) le chiffre 10
en 2 le chiffre 15
en 3 le chiffre 20
en 4 : 25
en 5 : 26
en 6 : 27
La date du tirage le 25/03/2009(listbox7)
je souhaite alors qu'apparaisse dans le tableau en DE 20 le chiffre existant mais incrémenté de 1(ici 0+1), en HI20 la date du tirage(listbox7) et ce pour le chiffre 10
même chose pour le chiffre 15,20........

J'espère avoir été plus explicite

merci de ta patience

[laetitia]

bonjour Flamand059 jacques_jean le forum si cela te convient code a simplifier

code du bouton un peu plus simplifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim c, i As Variant
Application.ScreenUpdating = False
For Each i In Array(T1, T2, T3, T4, T5, T6)
 Set c = [b:c].Find(i, LookIn:=xlValues, LookAt:=xlWhole)
If c <> "" Then
c.Offset(0, 1).Value = c.Offset(0, 1).Value + 1
c.Offset(0, 5).Value = T8 & "/" & T7 & "/" & T9
End If: Next i: Beep
End Sub

[Flamand059]

Bonsoir laetitia

Un grand merci pour ton aide