J
JJ
Guest
Bonsoir
J'ai écrit une macro simple qui fonctionne pourtant pas!
J'ai une feuille Excel, chaque cellule successive est de la forme:
(x,0) (y,1)(x,0) (y,1) etc...
x et y pouvant aller de 1 à 99
Dim x,y As Integer
For Each Cel In Selection
If Cel.Value = '(x,0) Then
Cel.Value = x
Else
If Cel.Value = '(y,1) Then
Cel.Value = y
Cel.Font.ColorIndex = 3
End If
End If
Next
End Sub
Ca ne marche pas, en fait je veux extraire le nombre avant le 0 ou le 1 (et en rouge si case du 1 pour differencier)
ou mieux: extraire le nombre avant le 0 sur cette ligne et inserer une ligne dessous et mettre le nombre avant le 1 ce qui eviterait de mettre en rouge
et recommencer avec la ligne suivante.. (donc au final j'aurais donc le double de lignes)
Qui peut m'aider?
merci
Bon WE
J'ai écrit une macro simple qui fonctionne pourtant pas!
J'ai une feuille Excel, chaque cellule successive est de la forme:
(x,0) (y,1)(x,0) (y,1) etc...
x et y pouvant aller de 1 à 99
Dim x,y As Integer
For Each Cel In Selection
If Cel.Value = '(x,0) Then
Cel.Value = x
Else
If Cel.Value = '(y,1) Then
Cel.Value = y
Cel.Font.ColorIndex = 3
End If
End If
Next
End Sub
Ca ne marche pas, en fait je veux extraire le nombre avant le 0 ou le 1 (et en rouge si case du 1 pour differencier)
ou mieux: extraire le nombre avant le 0 sur cette ligne et inserer une ligne dessous et mettre le nombre avant le 1 ce qui eviterait de mettre en rouge
et recommencer avec la ligne suivante.. (donc au final j'aurais donc le double de lignes)
Qui peut m'aider?
merci
Bon WE