Macro Copier Coller avec Multiplication

  • Initiateur de la discussion Initiateur de la discussion ArnoC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

ArnoC

Guest
Bonjour au Forum et à l'aide !
J'ai une colonne remplie de texte du style 96.78%
afin de faire une transfo rapide en nombre,
j'ai suivi la méthode du copier coller "multiplication" en ayant auparavant créer une colonne de 1 ...
Tout va bien c'est vraiment super
donc j'ai voulu l'enregistrer sous macro (en utilisant l'enregistreur)
et là tout va bien sauf qu'avec la macro,
le résultat final est toujours 1 dans toutes les celulles
que se passe t il ?

Merci de votre aide !!!

Sub Macro2()
'
' Macro2 Macro
'

'
Range("P10").Select
ActiveCell.FormulaR1C1 = "0.01"
Range("P10").Select
Selection.AutoFill Destination:=Range("P10😛50"), Type:=xlFillDefault
Range("P10😛50").Select
Range("H10:H50").Select
Range("H50").Activate
Selection.Copy
Range("P10😛50").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Style = "Percent"
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0.00%"
Selection.Copy
Range("H10:H50").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.0%"
Selection.NumberFormat = "0.00%"
Range("Q3").Select
End Sub
 
Re : Macro Copier Coller avec Multiplication

Re,

Tu fais modifier le message ou lorsque tu crées un nouveau message, tu dois avoir :

Insérer.PNG

Tu cliques sur le trombone et tu cherches ton fichier sur ton PC (Choisir) et tu valides (Envoyer) puis tu finis pas par Fermer cette fenêtre.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
10
Affichages
754
Réponses
18
Affichages
531
Réponses
2
Affichages
378
Réponses
17
Affichages
1 K
Retour