Je n'arrive pas à terminer une macro

Bonjour à tous,

Je me permets de solliciter votre aide pour créer une macro. J'ai tenté d'en taper une mais ça 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 souhaite créer une macro qui va ouvrir une boite de dialogue

Je mets un critère "OKMACRO" en cellule 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 critère où la formule est appliquée , ici c'est la colonne K avec le critère "Réel 2021"
La formule sera toujours en ligne 10
Ensuite je souhaite faire un copier/coller valeur de la formule sur toutes les lignes de la colonne sélectionnée et je souhaite mettre un range de maximum 800 lignes.

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:Copier dans le presse-papier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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

---

Merci par avance pour votre aide

Salut, alors déjà avant de jeter un oeil a ton code, on peut voir que tu enregistre sous .xlsx, ce format ne prends pas en charge les macro. Donc il ne peut pas y avoir de code sur ce fichier. Les fichiers comprenant de macro sont en .xlsm

Bonjour,
Je n'ouvre pas les fichiers joints
Avant d'aller plus loins, le code que vous publiez ne peut pas fonctionner car il y a des erreurs de syntaxe que l'éditeur VBE a dû vous signaler
Exemple ligne 8 et 10.

Citation:

---

Answer = MsgBox(" " .Range("L12:W12")

---

Il manque une parenthèse et de plus la fonction MsgBox ne renvoie que le n° du bouton sur lequel l'utilisateur a cliqué, à condition bien entendu d'avoir prévu les boutons (argument Buttons) or là sans argument le seul bouton qui s'affiche est OK donc il n'y a aucun intérêt

Votre test en ligne 11, voir ci-dessous, ne peut donc pas fonctionner non plus pour les mêmes raisons que décrites plus haut

Citation:

---

Answer = MsgBox(" " .Range("L1:W800)
If answer = "Réel 2021"then

---

Dans ce cas précis, la fonction InputBox serait plus appropriée