Je sélectionne une ligne entière, par la suite j'utilise le format de
cellule et j'applique la propriété BARRÉ, sur la ligne entière, j'aimerais
avoir si c'est possible de capter cette mise à jour, afin de pouvoir
renuméroté ma première colonne, en ordre croissant de ligne n'ayant pas la
propriété BARRÉ.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonjour, Oui !
Comme ceci par exemple :
Sub numligsaufbar() For i = 3 To 10 Cells(i, 1).Select If Cells(i, 2).Font.Strikethrough = True Then x = "" p = p + 1 Else x = i - p End If Cells(i, 1).Value = x Next i End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Pentium" a écrit dans le message de news:
Bonjour,
j'aimerais savoir si cela est possible ?
Situation:
Je sélectionne une ligne entière, par la suite j'utilise le format de cellule et j'applique la propriété BARRÉ, sur la ligne entière, j'aimerais avoir si c'est possible de capter cette mise à jour, afin de pouvoir renuméroté ma première colonne, en ordre croissant de ligne n'ayant pas la propriété BARRÉ.
Merci
Bonjour,
Oui !
Comme ceci par exemple :
Sub numligsaufbar()
For i = 3 To 10
Cells(i, 1).Select
If Cells(i, 2).Font.Strikethrough = True Then
x = ""
p = p + 1
Else
x = i - p
End If
Cells(i, 1).Value = x
Next i
End Sub
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Pentium" <Pentium@discussions.microsoft.com> a écrit dans le message de news:
B483248E-9E90-443A-93DB-BD14CBA2E716@microsoft.com...
Bonjour,
j'aimerais savoir si cela est possible ?
Situation:
Je sélectionne une ligne entière, par la suite j'utilise le format de
cellule et j'applique la propriété BARRÉ, sur la ligne entière, j'aimerais
avoir si c'est possible de capter cette mise à jour, afin de pouvoir
renuméroté ma première colonne, en ordre croissant de ligne n'ayant pas la
propriété BARRÉ.
Sub numligsaufbar() For i = 3 To 10 Cells(i, 1).Select If Cells(i, 2).Font.Strikethrough = True Then x = "" p = p + 1 Else x = i - p End If Cells(i, 1).Value = x Next i End Sub
-- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Pentium" a écrit dans le message de news:
Bonjour,
j'aimerais savoir si cela est possible ?
Situation:
Je sélectionne une ligne entière, par la suite j'utilise le format de cellule et j'applique la propriété BARRÉ, sur la ligne entière, j'aimerais avoir si c'est possible de capter cette mise à jour, afin de pouvoir renuméroté ma première colonne, en ordre croissant de ligne n'ayant pas la propriété BARRÉ.
