Discussion :

[coucou1105]

Bonjour,

J'ai fait un bouton qui m'ouvre une boite de saisie (un userform) qui me demande des données chiffrées. Ces données sont ensuite ecrites dans un tableau. Jusqu'ici pas de problème.
Maintenant, j'ai ajouté un numéro de semaine dans cette boite de saisie. et je voudrais que celon le numéro de semaine, les données soit écrites dans la collones de cette semaine.
En gros, mon tableau possède des collones avec les numéros de semaines et les données qui s'enchaines en dessous des numéros de semaines.

J'espère avoir été clair,

Cordialement

[Invité]

N'ayant que peu d'informations pour te répondre ; voici un code basique de recherche d'une valeur dans une colonne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Public Sub RechercheMotif(varMotif As Variant)
 
    Dim C As Range, ResAdr As String
 
    'Adapter le '1' par la colonne concernée
    Set C = Columns(1).Find(varMotif, , , xlWhole)
 
    'Si le motif n'est pas trouvé
    If C Is Nothing Then Exit Sub
 
    'Si le motif est trouvé on boucle sur les occurences
    ResAdr = C.Address
    Do
        'Mettre ici ton code pour écrire les données dans la bonne colonne
        Set C = Columns(1).FindNext(C)
    Loop While C.Address <> ResAdr
 
End Sub

A toi de l'adapter à ton besoin.

Et au passage 'Collone' s'écrit 'Colonne' en bon français.

[coucou1105]

je te met deux screenshot.

Le premier, ma boite ou je rentre mes données.
Le second, Le tableau ou je veux rentrer mes données.

En écrivant le numéro de la semaine, je veux que la suite des données entre dans la bonne colonne du tableau.

J'espère être assez clair.

cordialement

[Invité]

Dans ce cas tu remplaces la recherche par ligne par une recherche par colonnes.
L'équivalent de ce que je t'ai donné pour une recherche par ligne et en supposant que l’occurrence est unique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public Sub RechercheMotif(varMotif As Variant)
 
    Dim C As Range, ResAdr As String
 
    'Adapter le '1' par la ligne de recherche concernée
    Set C = Rows(1).Find(varMotif, , , xlWhole)
 
    'Affiche la colonne correspondante
    Debug.Print (C.Column)
 
End Sub

A adapter avec ton 'userform'.

[coucou1105]

la réference n'est pas unique