RechercheV et copier coller de certaines cellules

**OoPan** · 28/03/2019, 13h48

Hello,

Je me permets de vous soumettre une demande de macro :

Voir le fichier joint pour les données, mais voila le besoin :

- Dans l'onglet 1 du fichier : faire un vlookup pour regarder la date.
- Aller regarder la date l'onglet 2, et reporter les valeurs 1,2 et 3 depuis l'onglet 1 vers l'onglet 2, dans les colonnes adéquate.

Pourriez vous m'accompagner dans la démarche ?

**MarcelG** · 28/03/2019, 14h06

Bonjour OoPan,

Pas d'ouverture de classeur à l'initialisation d'une discussion.
Pourquoi une procédure?
Les fonctions natives d'Excel ne pourraient pas te donner le résultat?

**Menhir** · 28/03/2019, 14h13

Envoyé par OoPan

Je me permets de vous soumettre une demande de macro :

Lire les règles du forum, en particulier celle-là : http://club.developpez.com/regles/#LIV-N

Voir le fichier joint pour les données

Lire aussi cette règle-là : https://www.developpez.net/forums/d8...s-discussions/

- Dans l'onglet 1 du fichier : faire un vlookup pour regarder la date.
- Aller regarder la date l'onglet 2, et reporter les valeurs 1,2 et 3 depuis l'onglet 1 vers l'onglet 2, dans les colonnes adéquate.

Utilise la méthode Find sur la zone de recherche de ton onglet 2
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Après avoir vérifié avec une structure If que le résultat n'est pas Nothing, tu pourras récupérer sa ligne avec Row.
https://msdn.microsoft.com/fr-fr/lib...2(v=office.15)
https://docs.microsoft.com/fr-fr/off...else-statement

Ce numéro de ligne te permettra d'atteindre les valeur des autres colonnes de cette ligne par un Cells.

Tu peux aussi, à la place de tout ça, placer des fonctions RECHERCHEV dans les cellules avec une propriété FormulaLocal.
https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)

Pourriez vous m'accompagner dans la démarche ?

Pour que nous puissions "t'accompagner", il faudrait que tu ais déjà commencé ta progression. Là, on a plutôt l'impression que tu nous demandes de te tracter.

**Igloobel** · 28/03/2019, 15h03

Bonjour,

déjà tel quel cela ne peux pas marcher (en tout cas simplement)

dans ta colonne A de ton onglet "Départ" tu as une date au format Texte et dans ton onglet "arrivée" dans ta colonne A tu as une date en format date
Il vaut mieux que les 2 dates soient en format date (je te laisse corriger)

En suite nul besoin de macro pour faire ce que tu veux faire une simple formule RECHERCHEV fait l'affaire

pour t'aider je vais te donner la première formule à mettre dans l'onglet "arrivée en B3

Code :

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

=SI(ESTERREUR(RECHERCHEV(A3;départ!A:G;2;0));"";RECHERCHEV(A3;départ!A:G;2;0))

A toi de l'adapter pour faire les 2 autres

Formules à maitriser

- SI
- ESTERREUR
- RECHERCHEV

j'ai vérifier cela marche très bien

**OoPan** · 28/03/2019, 15h09

Hello Igloobel,

Merci pour ton retour, effectivement les formats ne correspondent pas mais il s'agit bien de date et de date, j'ai juste copier/coller par erreur les colonnes.

En complément, je saurai écrire en formule mais je voudrais juste ce genre de manipulation en code (car je vais en fait réellement manipuler plusieurs fichiers différent).

Je vais essayer d'avancer avec les indications données par les collègues du dessus... je vais poster ici.

**OoPan** · 28/03/2019, 15h20

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
 
 
Sub CopyPaste()
 
Dim celldepart as Long
Dim ligFin As Long
Dim iLig As Long
 
  Set fd = Application.FileDialog(msoFileDialogOpen)
     With fd
 
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Fichiers CSV", "*.csv"
        .InitialFileName = "C:\blabla\Data_CSV"
 
For iLig = 2 To ligFin
                    For iCol = 1 To 18
                        flux.Cells(iLig, iCol).FormulaLocal = ActiveWorkbook.Sheets(1).Cells(iLig, iCol).FormulaLocal
Next.... ?
 
End With