Bonjour à tous,
Je me permets de solliciter votre aide pour créer une macro. J'ai tenté d'en taper une mais ca ne marche pas et l'enregistreur est un peu KO.
En fait, j’ai un fichier joint avec deux onglets
Pourriez vous m'aider svp? Aussi simple que cela puisse paraitre je n'y suis pas arrivé (je n'utilise pas souvent les macros)
Merci par avance pour votre aide
Je me permets de solliciter votre aide pour créer une macro. J'ai tenté d'en taper une mais ca ne marche pas et l'enregistreur est un peu KO.
En fait, j’ai un fichier joint avec deux onglets
- Société A
- Import
- Je mets un critere "OKMACRO" en celulle I1 pour que la macro sache si elle doit s'appliquer sur l'onglet, (elle ne s'appliquera pas sur tous les onglets d'un classeur)
- Je renseigne le mois , exemple ici « 7 ».
- Je renseigne dans la boite de Dialogue le critere où la formule est appliquée , ici c'est la colonne K avec le critere "Réel 2021"
- La formule sera toujours en ligne 10
Pourriez vous m'aider svp? Aussi simple que cela puisse paraitre je n'y suis pas arrivé (je n'utilise pas souvent les macros)
VB:
Sub copieformule()
Dim ws As Worksheet
' Est ce que macro doit marcher
If Range("I1") = "OKMACRO"
Then
End If
Answer = MsgBox(" " .Range("L12:W12")
If answer = "" Then
Answer = MsgBox(" " .Range("L1:W800)
If answer = "Réel 2021"then
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Sub allws()
Dim ws As Worksheet
Dernière édition: