Macro excel: pb d'affectation de valeur!
babelfish
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21506 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
bonjour
j 'ai une chaine de caractere nommee de type "145-152", je dois placer les valeurs 145 et 152 dans 2 cellules distinctes.
j'utilise instr pour trouver la position de "-" et ensuite les fonctions right et left pour extraire les nombres.
je copie les resultats des fonctions right et left dans 2 chaines de caracteres avant de les affecter a mes 2 cellules. seulememt voila, si mes chaines de caracteres contiennent bien respectivement "145" et "152", mes cellules ne veulent pas prendre ces valeurs et restent nulles...
str: chaine contenant "145-152"
D: chaine contenant "-"
Pleft et Pright: chaine de caracteres
If InStr(str, D) <> 0 Then
Pleft = Left(str, (InStr(str, D) - 1))
Sheet1.cells(156,6).value = Pleft
pright = Right(str, (InStr(str, D) - 1))
Sheet1.cells(156,7).value= Pright
End If
Pourauoi mes cellules restent-elles vides alors que pright et Pleft contiennent bien ce que je veux?
merci
j 'ai une chaine de caractere nommee de type "145-152", je dois placer les valeurs 145 et 152 dans 2 cellules distinctes.
j'utilise instr pour trouver la position de "-" et ensuite les fonctions right et left pour extraire les nombres.
je copie les resultats des fonctions right et left dans 2 chaines de caracteres avant de les affecter a mes 2 cellules. seulememt voila, si mes chaines de caracteres contiennent bien respectivement "145" et "152", mes cellules ne veulent pas prendre ces valeurs et restent nulles...
str: chaine contenant "145-152"
D: chaine contenant "-"
Pleft et Pright: chaine de caracteres
If InStr(str, D) <> 0 Then
Pleft = Left(str, (InStr(str, D) - 1))
Sheet1.cells(156,6).value = Pleft
pright = Right(str, (InStr(str, D) - 1))
Sheet1.cells(156,7).value= Pright
End If
Pourauoi mes cellules restent-elles vides alors que pright et Pleft contiennent bien ce que je veux?
merci
Configuration: Windows 2000 Internet Explorer 6.0
A voir également:
- Macro excel: pb d'affectation de valeur!
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Trier un tableau excel - Guide
2 réponses
J'ai pris ta macro et je l'ai testée.
Chez moi ça marche.
Chez moi ça marche.
Sub a()
strr = "145-152"
D = "-"
'Pleft et Pright: chaine de caracteres
If InStr(strr, D) <> 0 Then
Pleft = Left(strr, (InStr(strr, D) - 1))
Sheets("Feuil1").Cells(1, 1).Value = Pleft
Pright = Right(strr, (InStr(strr, D) - 1))
Sheets("Feuil1").Cells(2, 1).Value = Pright
End If
End Sub
:(
peut etre un probleme de type? mais ca ne genere pas d'erreur...