VBA décalage de collone

Version imprimable

10/06/2013, 09h29
coucou1105

VBA décalage de collone

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

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

Code:

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.

10/06/2013, 13h23
coucou1105

2 pièce(s) jointe(s)

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

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:

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'.

10/06/2013, 13h56
coucou1105

la réference n'est pas unique