Copier et coller cellulles qui ont apostrophe et les convertir en nombre

[Soleil11]

Bonjour le forum,

Je vous explique en quelque mots quel est mon problème j'utilise le code ci-dessous pour copier des données d'une feuille exel à une autre. Mais si les cellules ne sont pas convertie précédemment en nombre cela ne fonctionne pas. Est-il possible de modifir ce code afin qu'il copie directement les données en format nombre. Après avoir copié les données avec le code ci-dessous les cellules qui contiennent un ('apostrophe) je dois les convertir manuellement en selectionnant la colonne et cliquer sur le petit triangle jaune pour convertir les cellules en nombre.

ActiveSheet.Range("A:X").Copy
 Sheets("source").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

Merci de votre aide.

Soleil11😕

 

[Robert]

Re : Copier et coller cellulles qui ont apostrophe et les convertir en nombre

Bonjour Soleil, bonjor le forum,

Une méthode simple :
• en Y1 tu tape : 1
• tu sélectionnes Y1 et tu copies
• tu sélectionnes les colonnes A à X
• tu fais menu Edition / Collage spécial...
• dans la partie Opération tu choisis l'option Multiplication
• tu valides par le bouton OK ou la touche [Entrée]
toutes les valeur sont convertie en nombre...

Si tu tapes 1 en Y1 le code ajusté :

With ActiveSheet
     .Range("Y1").Copy
     .Columns("A:X").SpecialCells(xlCellTypeConstants).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
         SkipBlanks:=False, Transpose:=False
     .Range("A:X").Copy Sheets("source").Range("A1")
End With

 

[Soleil11]

Re : Copier et coller cellulles qui ont apostrophe et les convertir en nombre

Rebonjour,

C'est exactement ce je veux mais est-il possible de copier directement les donnnées dans un autre classeur qui est ouvert en même temps. J'ai essayé d'ajouter "Worbooks("XXX") juste avant le End With mais cela ne fonctionne pas. Auriez-vous une solution ?

With ActiveSheet
.Range("Y1").Copy
.Columns("A:X").SpecialCells(xlCellTypeConstants).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _      SkipBlanks:=False, Transpose:=False
.workbooks("xxx").Range("A:X").Copy Sheets("source").Range("A1")
End With

Merci encore de votre aide.

Soleil11

 

[Robert]

Re : Copier et coller cellulles qui ont apostrophe et les convertir en nombre

Bonjour Soleil, bonjour le forum,

Tu n'étais pas loin ! Essaie comme ça :

With ActiveSheet
     .Range("Y1").Copy
     .Columns("A:X").SpecialCells(xlCellTypeConstants).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
         SkipBlanks:=False, Transpose:=False
     .Range("A:X").Copy Workbooks("xxx.xls").Sheets("source").Range("A1")
End With

 

[Soleil11]

Re : Copier et coller cellulles qui ont apostrophe et les convertir en nombre

Bonjour Robert,

Merci beaucoup cela fonctionne parfaitement.

Merci encore.

Soleil11.