Extraire des valeurs sur une recherche en VBA

Version imprimable

30/06/2021, 14h28
pat91

1 pièce(s) jointe(s)

Extraire des valeurs sur une recherche en VBA

Bonjour,

j'ai essayé en VBA de réaliser l'extraction suivante, mais je suis trop novice en la matière pour arriver à décomposer le problème.:aie:
je m'explique;
Dans une feuille, je recherche toutes les cellules contenant le texte "Heure:" dans la colonne A:A
Pour chaque cellule trouvée, je copie la valeur de la cellule adjacente à droite
Pour les coller sur une ligne sur une autre feuille "Résultats"

Je joins un fichier présentant l'état initial et le résultat attendu.

Merci encore aux généreuses compétences pour vos aides :D

à tester sur une copie de ton fichier pour munir contre tous risques de perte de données :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CopierSiheure()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Heure")
Set F2 = Sheets("Résultats")
F2.Cells.ClearContents
F2.Cells(2, 1) = "Heure :"
Dim derlig As Long
L = 2
derlig = F1.Cells(Rows.Count, 1).End(xlUp).Row
   Application.ScreenUpdating = False
    For i = 3 To derlig
      If F1.Cells(i, "A") Like "Heure:" Then
      F1.Cells(i, "B").Copy
      F2.Cells(2, L).PasteSpecial Paste:=xlPasteValues
      Application.CutCopyMode = False
      End If
      If F2.Cells(2, L) <> "" Then L = L + 1
    Next i
   Application.ScreenUpdating = true
End Sub

30/06/2021, 15h40
pat91

Bonjour BENNASR,

Merci pour ce code rapidement proposé :D

ça marche nickel, j'ai voulu ajouté la mise au format heure, car lors du transfert les valeurs sont transmises en standard. Sauf pour les colonnes (A:G) où j'avais déjà fait la mise eu format "heure".
Ne trouvant pas la syntaxe pour compléter la copie, j'ai de nouveau défini la cellule à modifier lors de la boucle.
Mais ce n'est pas concluant :?

Code:

F2.Cells(2, L).NumberFormat = "[$-x-systime]h:mm:ss AM/PM"

tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CopierSiheure()
Dim F1 As Worksheet
Dim F2 As Worksheet
Set F1 = Sheets("Heure")
Set F2 = Sheets("Résultats")
F2.Cells.ClearContents
F2.Cells(2, 1) = "Heure :"
Dim derlig As Long
L = 2
derlig = F1.Cells(Rows.Count, 1).End(xlUp).Row
   Application.ScreenUpdating = False
    For i = 3 To derlig
      If F1.Cells(i, "A") Like "Heure:" Then
      F1.Cells(i, "B").Copy
      F2.Cells(2, L).PasteSpecial Paste:=xlPasteValues
      Application.CutCopyMode = False
      F2.Cells(2, L).NumberFormat = "[$-F400]h:mm:ss AM/PM"
      End If
      If F2.Cells(2, L) <> "" Then L = L + 1
    Next i
 
End Sub

30/06/2021, 16h05
pat91

En fait je me suis rendu compte que j'avais placé ma ligne avant Application.CutCopyMode = False !

Quelle différence entre ces deux formats ?
"[$-F400]h:mm:ss AM/PM" et "[$-x-systime]h:mm:ss AM/PM" !
30/06/2021, 16h12
BENNASR

démarre enregistreur automatique du macro et fais l'opération manuellement
arrete l'enregistreur et tu aura ton code
30/06/2021, 16h30
pat91
C'est justement comme cela que j'ai procédé pour avoir le bon format.
Code:

1 2 3 Range("K2").Select Selection.NumberFormat = "[$-x-systime]h:mm:ss AM/PM"
mais apparemment le format, différent que vous proposez, fonctionne aussi mais j'aimerais en comprendre la différence, S'il y en a une !
01/07/2021, 09h31
pat91

Bonjour BENNASR,

Merci pour votre code qui m'a servi par ailleurs sur un autre projet :D
Du coup je n'ai rien trouvé sur le net concernant la différence entre les deux syntaxes !
Bon ça fonctionne et c'est le principal. :ccool:

Bonne journée.
01/07/2021, 11h44
Pierre Fauconnier

1 pièce(s) jointe(s)

Salut

Les formats entre crochets permettent de formaliser l'affichage selon une culture (une région du monde) spécifique ou générique. Comme son nom l'indique [$-x-systime] se réfère au système du pc, c'est-à-dire aux paramètres régionaux, de sorte que le résultat pourrait être différent d'un ordinateur à l'autre. [$-F400] le fera apparaître dans le format spécifique F400 quels que soient les paramètres régionaux.

Ca permet par exemple de faire apparaître le nom du jour de la semaine en français ou dans une autre langue, indépendamment des paramètres régionaux du pc^*.

Pièce jointe 600918

Si tu n'observes pas de différences entre [$-x-systime] et [$-F400], c'est que tes paramètres régionaux (system) correspondent aux paramètres F400.

^* On notera que cette info peut être utilisée par la fonction TEXTE, puisque cette fonction utilise comme second argument toute chaine de format pouvant être spécifiée dans le format personnalisé de la cellule.
01/07/2021, 13h04
pat91

Bonjour Pierre,

Merci pour ce renseignement, du coup j'ai modifié cette syntaxe pour effectivement être certain du bon fonctionnement indépendamment du format régional paramétré sur le PC.

:chin: