Discussion :

[abouhossam]

bonjour à tous

mes données:
colonne A
0000114
0000114
0010114
0020114
0050114

Je veux que la colonne B m'envoie la soustraction des 3 nombres de chaque réf et la réf suivant .
j'ai développé une macro pour ce but

Code :

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

1
2
3
For Each cell In Sheets("SUIVI").Range("a2:a" & Sheets("SUIVI").Range("a65536").End(xlUp).Row)
cell.offset(0,1).value=left(cell.offset(1,0),3)-left(cell,3)
next

la macro me donne un message d'erreur.
merci à vous.

[Marc-L]

Bonjour,

compléter la présentation par le contenu de la colonne B afin d'y comprendre quelque chose
et indiquer précisément le message d'erreur et la ligne le déclenchant …

[abouhossam]

merci à vous
la colonne B est vide
et je veux qu'il affiche les résultats :
000-000=000
001-000=001
002-001=001
005-002=003
le message d'erreur est :

Code :

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

1
2
erreur d'execution '13'
Incompatibilité de type

la ligne le déclenchant:

Code :

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

cell.offset(0,1).value=left(cell.offset(1,0),3)-left(cell,3)

merci.

[danixdb]

Bonjour abouhossam,Marc-L, Le Forum

La fonction Left te retourne une chaine de caractères, pour pouvoir faire une opération dessus tu dois convertir cette chaine en numérique.

Code :

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

1
2
3
4
5
6
 
  Dim cell As Variant
  For Each cell In Sheets("SUIVI").Range("a2:a" & Sheets("SUIVI").Range("a65536").End(xlUp).Row)
  If Left(cell.Offset(1, 0), 3) = "" Then Exit For
  cell.Offset(0, 1).Value = CInt(Left(cell.Offset(1, 0), 3)) - CInt(Left(cell, 3))
  Next

Slts

[abouhossam]

merci danixdb
ta macro marche bien
j'ai trouvé une autre méthode en utilisant les fcts : Mid et Len
le code c'est :

Code :

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

1
2
3
4
Dim cell As Range
  For Each cell In Sheets("SUIVI").Range("a2:a" & Sheets("SUIVI").Range("a65536").End(xlUp).Row)
  cell.Offset(0, 1).Value = -Mid(cell, 1, Len(cell) - 4) + Mid(cell.Offset(1, 0), 1, Len(cell.Offset(1, 0)) - 4) 
  Next

le code marche très bien aussi.
merci à tous
bonne weekend.