Discussion :

[OncleSid]

Bonjour, je suis nouveau sur le forum et débutant en VBA.

Je vais essayer de vous exposer clairement mon souci.

Je cherche à partir de la valeur de la cellule active (heure de début) et de celle sur sa droite (heure de fin) de la feuille "MASTER", à retrouver sur une autre feuille (feuille "SHIFTS") une ligne ayant ces deux mêmes valeurs pour pouvoir par la suite récupérer un morceau de cette ligne et la "coller" sur la première feuille.

Etant des heures au format date (avec date + heure), la fonction FIND ne fonctionnait pas. J'ai du coup converti sur la deuxième feuilles ("SHIFTS") les dates/heures au format numérique puis concaténer sur la colonne B les deux valeurs.

J'ai du coup réussi à récupérer l'adresse correspondante à ma recherche grâce à FIND et VALUE2.

Mon souci est que je n'arrive pas à utiliser cette "adresse" pour l'utiliser sur les étapes d'après. J'obtiens un message d'erreur dès que j'essaye de faire un resize ou de l'utiliser en tant que range.

Mon but une fois l'adresse trouvée et de "décaler" de 6 cellules vers la droite (ça j'y arrive) puis de resize pour copier les valeurs de cette ligne de la colonne H à la colonne CE.

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
13
14
15
16
17
18
19
20
21
Sub FINDligne()
 
Dim shiftDEB As Range
Dim shiftFIN As Range
Dim searchshiftDEB As Variant
Dim searchSHIFT As Variant
Dim ligne As Variant
 
searchshiftDEB = ActiveCell.Value2
searchshiftFIN = ActiveCell.Offset(0, 1).Value2
searchSHIFT = searchshiftDEB & " " & searchshiftFIN
 
 
Set searchSHIFT = Worksheets("SHIFTS").Range("B1:B500").Find(What:=searchSHIFT, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlColumns)
 
 
ligne = searchSHIFT.Offset(0, 6).Address
MsgBox ligne
 
 
End Sub

Mon fichier :
SEMAINE XX-2020_MASTER.xlsb.xlsm

Merci d'avance pour votre aide !

Oncle Sid

[mat955]

Bonjour,

La propriété Address d'une Range te renverra, comme son nom l'indique, une adresse (ex : $A$1).
Si tu veux récupérer la ligne, utilise la propriété Row.

[OncleSid]

Merci mat955 pour ta réponse,

J'utilise Address pour vérifier que je suis au bon endroit et que le code fonctionne (avec un MsgBox).

Comme je souhaite récupérer seulement un morceau de la ligne (de H à CE), la propriété Row est-elle adaptée ?

[révèr]

Bonjour OncleSid et mat,

La propriété .Row va simplement t'afficher le numéro de ligne associé à l'adresse de ta cellule.

Code :

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

1
2
3
4
5
 
Dim Ligne as Integer
 
Ligne = Range("A1").Row
'Ligne = 1

Tu devrais pouvoir faire de même en intégrant ton .Address. La propriété .Row est à mettre en bout de ligne

[pijaku]

Bonjour,
Visuellement :

Code :

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

If Not searchSHIFT Is Nothing Then searchSHIFT.Offset(0, 6).Resize(,76).Select

Sinon, pour copier :

Code :

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

If Not searchSHIFT Is Nothing Then searchSHIFT.Offset(0, 6).Resize(,76).Copy

[OncleSid]

Merci pour votre aide !

J'ai fini par trouver une solution en utilisant le résultat de .Row en variable pour définir la range à copier.
Je parviens à la coller au bon endroit sur l'autre feuille, seulement voilà, j'ai une feuille par jour, et j'aimerais que le collage est lieu dans la feuille depuis laquelle la procédure à été lancé.

Dans le code ci-dessous, cela fonctionne mais j'aimerais ne pas à avoir à nommer la feuille "MASTER" sur l'avant dernière ligne du code car si je lance la procédure depuis une autre feuille cela ne va pas se coller au bon endroit.

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
21
22
23
24
25
26
27
28
29
30
Sub FINDligne()
 
Dim shiftDEB As Range
Dim shiftFIN As Range
Dim searchshiftDEB As Variant
Dim searchSHIFT As Variant
Dim ligne As Variant
Dim ligneF As Range
Dim ligneCM As Range
 
searchshiftDEB = ActiveCell.Value2
searchshiftFIN = ActiveCell.Offset(0, 1).Value2
searchSHIFT = searchshiftDEB & " " & searchshiftFIN
 
'Find sur la feuille SHIFTS la valeur num?rique correspondant au shift de d?but et de fin
Set searchSHIFT = Worksheets("SHIFTS").Range("B1:B500").Find(What:=searchSHIFT, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlColumns)
 
'Num?ro de la ligne trouv?e
ligne = searchSHIFT.Row
 
'D?finir la plage ? copier
Set ligneCM = Worksheets("SHIFTS").Range("I" & ligne & ":CE" & ligne)
 
'Copier/Coller
Worksheets("SHIFTS").Activate
ligneCM.Copy
Worksheets("MASTER").Activate
ActiveCell.Offset(0, 4).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
 
End Sub

J'ai essayé avec ActiveSheet mais du coup cela coller sur la feuille "SHIFTS"...
J'ai essayé de déclarer une variable As Worksheet associé à ActiveSheet en début de procédure mais j'ai un message d'erreur.

Ca existe un truc genre Previous.activeSheet ?

Vous avez une idée ?

[révèr]

Pour Copier/Coller tu choisis le lieu de copie. Classeur -> Feuille -> Range la destination de collage. Classeur -> Feuille -> Range.

Du moins, c'est ce que j'ai vu dans d'autres codes. Je ne sais plus très bien quelle est le code exact. Je fouille dans la bibliothèque si je trouve, je n'ai jamais eu l'occasion de l'utiliser ^^

Note qu'il est aussi important d'éviter d'utiliser les .Select et .Activate autant que possible. On me l'a reproché récemment, je m'efforce à les limiter (voir les supprimer) de mes codes.

J'espère que tu trouveras chaussure à ton pied, je te souhaite une bonne continuation !

[OncleSid]

Merci révèr !

J'ai viré tous les Select et Activate et ça marche nickel ! Du coup il garde ActiveCell dans la feuille depuis laquelle la procédure à été lancé donc ma macro fonctionne depuis n'imorte quelle feuille du classeur

Le code pour ceux que ça intéresse :

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
21
22
23
24
25
26
27
28
29
Sub FINDligne()
 
Dim shiftDEB As Range
Dim shiftFIN As Range
Dim searchshiftDEB As Variant
Dim searchSHIFT As Variant
Dim ligne As Variant
Dim ligneF As Range
Dim ligneCM As Range
 
searchshiftDEB = ActiveCell.Value2
searchshiftFIN = ActiveCell.Offset(0, 1).Value2
searchSHIFT = searchshiftDEB & " " & searchshiftFIN
 
'Find sur la feuille SHIFTS la valeur num?rique correspondant au shift de d?but et de fin
Set searchSHIFT = Worksheets("SHIFTS").Range("B1:B500").Find(What:=searchSHIFT, LookIn:=xlValues, Lookat:=xlWhole, SearchOrder:=xlColumns)
 
'Num?ro de la ligne trouv?e
ligne = searchSHIFT.Row
 
'D?finir la plage ? copier
Set ligneCM = Worksheets("SHIFTS").Range("I" & ligne & ":CE" & ligne)
 
'Copier/Coller
 
ligneCM.Copy
ActiveCell.Offset(0, 4).PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False
 
End Sub