Discussion :

[Runsh63]

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 !

[mercatog]

mets un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Len(.Cells(i, j)) &"-----"&InStr(.Cells(i, j), Chr(10))

juste avant la ligne 11 de ton code

[Runsh63]

Bonjour et merci pour ta réponse Mercatog,

Ne sachant pas du tout ce que signifie ce bout de code, j'ai copié textuellement, mais ça ne résout malheureusement pas mon problème.
Pour ma culture, quel but a cette ligne ?

Merci de t'être penché sur mon souci en tout cas !!

[Runsh63]

Mes excuses, ça fonctionne à merveille !!!

Merci encore pour ton aide, excellente fin de journée à toi !!

[mercatog]

La ligne en question ne résout rien mais elle permet de visualiser les valeurs en question dans la fenêtre Execution de l'éditeur