Macro pointant sur liste deroulante
Bonjour,
Faisant mes premiers pas dans VBA / macro lors de mon stage, je me retrouve un peu perdu.
Je viens vers vous pour deux points. J'ai récupéré des Daily Report sauvegardé depuis 200 jours par la compagnie.
Ils ont tous la meme mise en page (colonne, cellule). il y a un champ capital qui dit si la production est "At port" ou "in deployment" ou autres cas.
Ce champ est une liste déroulante dans la cellule "C8:E8" (3 cellules fusionées).
- J'aimerai regrouper mes daily report par mois (30 fichiers en un fichier). Ils sont en .xlsx
- Deuxièment faire une macro sur le fichier (regroupant les 30) en le faisant pointer sur "C8:E8" et si c'est "On Port" qu'il sorte des infos (vitesse; conso, ...)
J'ai fait un test en L9 (case qui etait vide) et où j'ai écrit "At port" --> CA MARCHE,
mais ca ne marche pas quand je le pointe sur ma liste déroulante "C8:E8"...
Il y a le code dans le fichier Excel joint si qqn a le temps
Merci d'avance
Non il n'y a pas le code.
Code qui marche pour une cellule normale que j'ai tapé :
Sub condition()
' condition Macro
Sheets("Daily Report").Select
Range("L9").Select
If Range("L9").Value = "At port" Then Range("L9").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Code (qui ne marche pas) auquel j'ai pensé pour liste déroulante dans des cellules fusionées :
Sub macro3()
' condition Macro
Sheets("Daily Report").Select
Range("C8:E8").Select
If ActiveSheet.DropDowns("C8:E8").Value = "At port" Then Range("C8:E8").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Normal...
Sub macro3()
' condition Macro
If Sheets("Daily Report").Range("B4") = "At port" Then
Sheets("Sheet2").Range("A1") = Sheets("Daily Report").Range("B4").Value
End If
End Subil ne m'affiche rien ... il faut ajouter qqch ?
J'ai rien dit
A utiliser sur le classeur que tu m'as filé.
Qq à une idée pour fussioner plusieurs fichiers XLS (tel que celui de mon exmple) dans un fichier XLS mais avec plusieurs onglets ?