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

J

Jean Charles

Guest
Bonjour le Forum

j'ai créer une macro avec l'enregistreur de macro avec diverses actions (convertir texte en tableau, convertir des dates etc etc )
le problème se pose après avoir transformé un texte en date (=1*(1"/"gauche(c1;nbcar(c1)-2)&"/"&droite(c1;2))
Comment faire pour qu'il reproduise la formule jusqu'au la 1ère cellule vide
je l'ai créer sur 40 lignes et ça marche très bien mais dès que j'en rajoute 20 ça plante (normal VBA le met jusque 40) et mon nombre de ligne peut varie très souvent (entre 600 et 1200)
je vous ai joint un zip
lancer la macro MAJ et voyez ce qu'il se passe en C41

Si quelqu'un avait une solution ça me libérerait d'un gros boulot !!!

Merci à vous tous et toutes et déjà très bon week end a vous
JC
 

Pièces jointes

Bonjour,

Remplace ton code par le suivant:

Sub MAJ()
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 9), Array(2, 1), Array(16, 1), Array(19, 2), Array(25, 9), _
Array(27, 1), Array(31, 1), Array(48, 1), Array(53, 1), Array(56, 4), Array(63, 1), Array( _
72, 1)), TrailingMinusNumbers:=True

Range("K1:K" & Range("C65536").End(xlUp).Row).FormulaR1C1 = "=1*(1&""/""&LEFT(RC[-8],LEN(RC[-8])-2)&""/""&RIGHT(RC[-8],2))"
Columns("K:K").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

With Columns("C:C")
.NumberFormat = "[$-40C]mmm-yy;@"
.ColumnWidth = 8.86
End With

Columns("K:K").Delete Shift:=xlToLeft
Range("A1").Select
End Sub


Bonne journée

@Christophe@
 
- 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
5
Affichages
567
Réponses
4
Affichages
243
Réponses
10
Affichages
761
Réponses
11
Affichages
772
  • Question Question
Microsoft 365 sauvegarde par VBA
Réponses
22
Affichages
1 K
Retour