convertir colonnes texte en nombre sauf la 1er ligne[RESOLU]

  • Initiateur de la discussion Initiateur de la discussion regnum
  • 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 !

regnum

XLDnaute Junior
bonjour a tous

j'ai parcouru pas mal de forum sur le sujet et j'ai trouvé mon bonheur sur celui ci.
https://www.excel-downloads.com/threads/vba-convertir-format-texte-en-nombre-sans-boucle.160858/

la solution de Pierre93 est super mais convertie toute les colonnes.😎
j'aimerais bien convertir toute les colonnes sauf la 1er ligne.😳
j'utilise ce code:
VB:
Sub convertir()
Dim I As Integer
Dim dercol As Integer

dercol = Cells(2,Columns.Count).End(xlToLeft).Column

For I = dercol To 1 Step -1
Sheets("SYNTHESE").Columns(I).TextToColumns , FieldInfo:=Array(1, 1)

Next I
End Sub

Auriez vous une idée car je bloc pour le reste de mon programme🙂

merci a tous
 
Bonsoir à tous

oui j'ai idée
Il suffit de travailler sur les ranges (plutôt que sur les colonnes) à partir de la ligne 2 de chaque colonne.
Un truc du genre
VB:
Sub convertir()
Dim I As Long
Dim dercol As Long
dercol = Cells(2, Columns.Count).End(xlToLeft).Column
For I = dercol To 1 Step -1
Sheets("SYNTHESE").Range(Cells(2, I), Cells(Rows.Count, I)).TextToColumns , FieldInfo:=Array(1, 1)
Next I
End Sub
 
Dernière édition:
- 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

Discussions similaires

Réponses
2
Affichages
1 K
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
975
Retour