Copier cellule en fonction d'une variable

Version imprimable

09/03/2011, 17h45
Zertozerto

Copier cellule en fonction d'une variable
Bonjour,

Ma situation:
J'ai un tableau de données ou chaque colonne correspond a une semaine.
Par une combobox, l'utilisateur choisit quelle semaine il veut. (la variable associée a cette action est maVariable)

Ce que je souhaite c'est tranformer mon code suivant:
Code:

1 2 3 4 5 6 Sheets("Sheet1").Select Range("A2").Select Selection.Copy Sheets("Sheet3").Select Range("E4").Select ActiveSheet.Paste
Modifier le Range("A2").Select par qqchose du genre Range(colonne ou il y a maVariable + ligne n2)

Ideas?

merci d'avance
09/03/2011, 17h51
rvtoulon

bonjour,
essaye en remplaçant "range("A2")" par "Cells(lignen2, mavariable)".
regarde dans l'aide vba (F1) avec le mot cells.

Mais si tu pouvais développer un peu plus ce que tu souhaites faire et ou se trouve ta combo (sur un userform ou sur ta feuille) se serait cool.
09/03/2011, 18h01
Theze
Bonsoir,

Si j'ai bien compris, l'utilisateur sélectionne la semaine voulue représenté par un numéro dans le ComboBox et tu veux récupérer la valeur correspondante de la ligne 2 ?
Code:

1 2 3 4 5 6 7 8 9 10 Sub Selectionner() Dim MaVariable As Integer MaVariable = ComboBox1.Text Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Range("E4") End Sub
Hervé.
09/03/2011, 18h19
Zertozerto

Sheet 1 j'ai cela:

Citation:

W05 W06 W07 W08
0.40 1.15 2.30 0.70
6.05 7.20 9.50 10.20
1.40 1.50 0.40 2.95
9.75 11.25 11.65 14.60

j'ai une combobox sheet 2 qui me permet de choisir la semaine selectionnée.

apres avoir selectionner la semaine voulue ex: W07
W07 est mis dans maVariable

En cliquant sur un un bouton Execute,
je veux deplacer les données correspondantes a la semaine 7 vers une sheet 3.

2.30 vers B6 de la sheet 3
9.5 vers C2 de la sheet 3
etc

Une fois remplie, je copie ces données dans un autre fichier etc etc (ca c'est ok)

J'espere avoir été plus clair
09/03/2011, 20h52
Theze
Re,

Pour récupérer le numéro de la semaine :
Code:

1 2 MaVariable = CInt(Format(Right(ComboBox1.Text, 2), "#0"))
Pour le reste, je te laisse chercher un peu ;0)

Hervé.

Citation:
Envoyé par Theze
Code:

1 2 3 4 5 6 7 8 9 10 Sub Selectionner() Dim MaVariable As Integer MaVariable = ComboBox1.Text Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Range("E4") End Sub
Cela ne marche pas.

Je pense qu'il faut qu'il cherche dans la sheet 1 dans quelle colonne se trouve la valeur stockée dans maVariable sur toute la ligne 2 du tableau. (ligne ou il y a toutes les semaines).

Je ne comprends pas trop ta deuxieme reponse.
La valeur maVariable je l'ai déja, et la tu la modifie... ?

voila ce que j'ai essayé :
Code:

1 2 3 4 5 6 Sheets("Sheet1").Select Cells(2, MaVariable).Select Selection.Copy Sheets("Sheet3").Select Range("E4").Select Selection.Paste
et
Code:

1 2 3 4 Sheets("Sheet1").Cells(2, MaVariable).Select Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Cells("E4").Select Sheets("Sheet3").Range("E4").Paste
Citation:

error 1004
Application-defined or object-defined error

10/03/2011, 11h56
Theze
Bonjour,

Sous quelle forme est la valeur de "MaVariable" ? Du genre 1, 2, 3, etc... ou autre ?
Ton bloc d'instructions peut être rammené à :
Code:

1 2 Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Range("E4")
Hervé.

Re,

Désolé pour ma réponse précédente, les valeurs du ComboBox étant sous la forme W01, W02, W03, etc... il te faut récupérer que la partie nombre, c'est pour ça qu'une erreur est générée. Teste ce qui suit, ça marche. Par contre, j'ai vus un post(avec Mercatog) où tu rempli ton Combo en fonction des valeurs de ta ligne ? Là, il va y avoir des résultats inattendus car tu aura des décalage de colonnes à cause de la présence des colonnes contenant le nom des mois :

~~JAN -W01 - W02 -W03 - W04 - W05 - FEV - W06 -W07 ..~~

Code sans tenir compte de ces décalages :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ComboBox1_Click() Dim MaVariable As Integer MaVariable = CInt(Format(Right(ComboBox1.Text, 2), "#0")) Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Range("E4") End Sub
Hervé

J'ai déja réglé le probleme des mois :ccool:

en copiant ton code, j'ai un message d'erreur

Citation:

Run-time error '9'
Subscript out of range

pour mieux comprendre je te copie mon code en entier:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub UserForm_Initialize()
Dim Col As Integer
    For Col = 9 To 75
        If Left(Sheets("Data Entry").Cells(7, Col), 1) = "W" Then
            ComboBox1.AddItem Sheets("Data Entry").Cells(7, Col)
        End If
    Next Col
 
End Sub
 
Private Sub CommandButton1_Click()
 
Dim NomClasseur As String
Dim Chemin As String
Chemin = "C:\Documents and Settings\user\Desktop"
 
Dim nouveauFichier As Workbook
Dim ceFichier As Workbook
Set ceFichier = ActiveWorkbook
 
 
MaVariable = ComboBox1.Text
 
    'erreur
    If MaVariable = "" Then
    MsgBox "Please select the week"
    End
    End If
 
    'Copy
    NomClasseur = "Titre" & MaVariable & ".xls"
    Set nouveauFichier = Workbooks.Add
    DoEvents
    Sheet10.Copy Before:=nouveauFichier.Sheets(1)
    DoEvents
 
    'Save
    nouveauFichier.SaveAs Filename:=Chemin & "\" & NomClasseur, FileFormat:=xlNormal
    DoEvents
 
    'Close new document
    nouveauFichier.Close False
    ceFichier.Activate
 
   ' Hide UserForm
    UserForm1.Hide
 
End Sub

10/03/2011, 13h59
Theze
Re,

Mais dans ton code où est la ligne de code ?
Code:

1 2 Sheets("Sheet1").Cells(2, MaVariable).Copy Sheets("Sheet3").Range("E4")
Celle qui est l'origine de ce post.
Ici, "MaVariable = ComboBox1.Text" ne sert qu'a nommer un classeur et non à copier des valeurs d'une feuille à une autre ?
Pour remplir ton ComboBox tu n'as pas besoins de faire une récup dans ta feuille, tu peux faire :
Code:

1 2 3 4 For Col = 1 To 66 ComboBox1.AddItem "W" & Format(Col, "00") Next Col
En attendant plus de précisions.
Hervé.

Le code que je t'ai donné et le code Actuel.
la variable mavariable je m'en sers pour générer le nom du nouveau classeur actuellement.

Oui pour le moment non, "mavariable" ne sert que a cela.

Je n'arrive pas a intégrer ta ligne dans mon code j'ai toujours des messages d'erreur.

ce que je voudrais c'est tester une par une les cellules de la ligne1 (la ligne qui correspondant au semaine)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim CELL As Integer CELL = 1 (initialiser la position) CELL = Range("B2:E2") (ici la syntaxe est pas bonne et pas coherente avec fonction de dessus) (on test chaque colonne) For i = 1 To i = 3 If i <> MaVariable Then i = i + 1 Next CELL If i = MaVariable Then DIRE que c'est dans cette colonne active (colonne de la semaine selectionnée), que mes cellules vont etre copiés ers autre sheet: ex:ligne n5 correspond a la cellule D3 de la feuille 3 ligne n 8 cellule D5 de la sheet 3 End If
Il y a surement de grosse faute de syntaxe dans ce petit bout de code (ze debute) mais j'espere avoir fait comprendre ma philosophie

10/03/2011, 14h48
Zertozerto

Oui pour le moment ~~non~~, "mavariable" ne sert que a cela.

tester la ligne 2 pardon

Re,

Bon, j'espère que cette fois-ci je suis dans le vrai :0(

Les explications sont dans le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim I As Integer
 
'de la colonne 9 jusqu'à la colonne 75 je suppose ?
'compare les valeurs en ligne "2" des colonnes "I" à "BW"
'à la valeur de MaVariable, si trouvé, sortie de boucle
For I = 9 To 75
    If Cells(2, I) = MaVariable Then Exit For
Next I
 
'I conservant sa valeur en sortie de boucle, il suffit
'de l'utiliser pour faire référence à la bonne colonne
Sheets("Sheet1").Cells(2, I).Copy Sheets("Sheet3").Range("E4")

Hervé.

Yepaaaa :D
Dans le mille Emile

Bon j'ai copié ton code et j'avais encore des erreurs,toujours avec la derniere ligne de ton code je me suis penché sur le probleme et j'ai résolu le soucis.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim I As Integer For I = 1 To 12 MsgBox Worksheets("Sheet1").Cells(1, I) If Worksheets("Sheet1").Cells(1, I) = MaVariable Then Exit For Next I Sheets("Sheet1").Cells(2, I).Copy Sheets("Sheet3").Select Range("E4").Select ActiveSheet.Paste
Merci beaucoup du temps passé à m'aider Theze!:ccool: