Discussion :

[akination]

Bonjour !

Alors pour commencer, je suis un pur neophyte de VBA, je commence seulement donc je m'excuse par avance si ma question est idiote ...

Donc, pour expliquer le contexte, j'ai 3 worksheets.

- 1 : un worksheet data de "saisie"

- 2 : un worksheet qui est un "reclassement" de ces datas selon certains critères (script VBA déjà sans problème)

- 3 : un worksheet de "présentation" des informations reclassées

Je suis d'accord qu'il est tout à fait possible de faire tout ce que j'ai besoin sans passer par VBA mais comme je veux augmenter mon niveau ... je test !

Pour le moment voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub CopieRank()
 
For Z = 0 To 10
 
Partner = Worksheets(4).Cells(4 + Z, 1)
datacopie = Worksheets(3).Range(Cells(4, 1), Cells(14, 1)).Find(What:=Partner, lookat:=xlWhole).Row
Worksheets(4).Cells(4 + Z, 2) = Worksheets(3).Cells(datacopie, 3)
 
Next
Worksheets(4).Range(Cells(4, 2), Cells(14, 2)).NumberFormat = "0,"
End Sub

En gros, ma boucle fait une sorte de rechercheV et me copie les informations dans la bonne cellule ...

Le code marche... mais uniquement si je change le sheet selectionné quand je déclare la variable datacopie et ça, je ne comprends pas.

Je veux évidement éviter les de faire des .Selection
Mon code marche donc si j'intercale Worksheets(3).Select entre Partner et datacopie ...

Bref, je sais pas si je fût vraiment claire mais avez vous par hasard une solution miracle à mon problème ?

Merci d'avance !

[mercatog]

Mauvais réflexe de penser aux Select

Regarde dans l'écriture des Range

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
Sub CopieRank()
Dim Partner As String
Dim z As Integer
Dim c As Range
 
For z = 0 To 10
    Partner = Worksheets(4).Cells(4 + z, 1)
    Set c = Worksheets(3).Range(Worksheets(3).Cells(4, 1), Worksheets(3).Cells(14, 1)).Find(What:=Partner, lookat:=xlWhole)
    If Not c Is Nothing Then
        Worksheets(4).Cells(4 + z, 2) = Worksheets(3).Cells(c.Row, 3)
        Set c = Nothing
    End If
Next z
Worksheets(4).Range(Worksheets(4).Cells(4, 2), Worksheets(4).Cells(14, 2)).NumberFormat = "0,"
End Sub

PS: pour éviter l'erreur si un Partner n'existe pas, il faudra passer par une variable range intermédiaire (ici c)

[akination]

Ah merci ! Je ne savais pas qu'il fallait répéter le worksheet dans le range alors qu'il est défini déjà avant. Donc en gros faire Worksheets(3).Range ne sert à rien...

Je vais pouvoir aller plus loin dans ce que je voulais faire à la base.

Encore merci