Discussion :

[pat91]

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.
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

[BENNASR]

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

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 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

[pat91]

Bonjour BENNASR,

Merci pour ce code rapidement proposé

ç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 :

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

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

[BENNASR]

tester

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 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

[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" !

[BENNASR]

démarre enregistreur automatique du macro et fais l'opération manuellement
arrete l'enregistreur et tu aura ton code

[Pierre Fauconnier]

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^*.




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.

[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.