Bonjour,

Je suis confronté à un souci.
Dans une plage de cellules, je cherche à récupérer la chaîne de caractères se trouvant deux positions avant la position du retour chariot.
Voilà le code écrit :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Integer, j As Integer, LR As Integer
 
    With Sheets("Planning")
 
        LR = .Cells(.Rows.Count, 1).End(xlUp).Row
 
            For j = 5 To 11
 
                For i = 6 To LR
 
                        .Cells(i, j).Value = Left(.Cells(i, j), InStr(.Cells(i, j), Chr(10)) - 2)
 
                Next i
 
            Next j
 
        End With
La macro bugge, alors que dans la feuille Excel, si je tape la formule :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=CODE(DROITE(GAUCHE(F6;5);1))
il me ramène bien la valeur 10.

Lors du lancement de la macro, j'ai le texte "Erreur d'exécution '5' - Argument ou appel de procédure incorrect".

Toutes mes cellules contiennent bien un retour chariot, donc je ne comprends pas, d'autant que si je fais le pas à pas, ça plante dès la première cellule testée

J'en appelle à votre savoir !!

Au besoin, je peux joindre le fichier source mais si on peut éviter (en espérant que ma demande soit claire)

Merci d'avance pour votre aide !