Voici une partie de code que je ne comprends pas, en fait
"La ligne : " & c.Row _
& " est un doublon !":
ne s'affiche jamais même si il ya un doublon
If x <> y Then
Sheets("Feuil1").Select
For Each c In Range("A1:A" & [A65536].End(3).Row)
If c.EntireRow.Hidden = True Then MsgBox "La ligne : " &
c.Row _
& " est un doublon !":
Next
Sheets("Feuil1").ShowAllData
MsgBox "Fichier non enregistré, IL Y A UN DOUBON !"
Cancel = True
End If
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
michdenis
Bonjour Christophe,
Dans la procédure, il manque juste un petit quelque chose : CurrentRegion !!!
For Each c In Range("A1:A" & [A65536].End(3).Row).CurrentRegion If c.EntireRow.Hidden = True Then MsgBox "La ligne : " & c.Row _ & " est un doublon !": Next
Ceci devrait rouler !
Salutations!
"CHRISTOPHE" a écrit dans le message de news: % Voici une partie de code que je ne comprends pas, en fait "La ligne : " & c.Row _ & " est un doublon !": ne s'affiche jamais même si il ya un doublon
If x <> y Then Sheets("Feuil1").Select For Each c In Range("A1:A" & [A65536].End(3).Row) If c.EntireRow.Hidden = True Then MsgBox "La ligne : " & c.Row _ & " est un doublon !": Next Sheets("Feuil1").ShowAllData MsgBox "Fichier non enregistré, IL Y A UN DOUBON !" Cancel = True End If
Bonjour Christophe,
Dans la procédure, il manque juste un petit quelque chose : CurrentRegion !!!
For Each c In Range("A1:A" & [A65536].End(3).Row).CurrentRegion
If c.EntireRow.Hidden = True Then MsgBox "La ligne : " & c.Row _
& " est un doublon !":
Next
Ceci devrait rouler !
Salutations!
"CHRISTOPHE" <christophe.reina@free.fr> a écrit dans le message de news: %23FUsBKRxEHA.2568@TK2MSFTNGP11.phx.gbl...
Voici une partie de code que je ne comprends pas, en fait
"La ligne : " & c.Row _
& " est un doublon !":
ne s'affiche jamais même si il ya un doublon
If x <> y Then
Sheets("Feuil1").Select
For Each c In Range("A1:A" & [A65536].End(3).Row)
If c.EntireRow.Hidden = True Then MsgBox "La ligne : " &
c.Row _
& " est un doublon !":
Next
Sheets("Feuil1").ShowAllData
MsgBox "Fichier non enregistré, IL Y A UN DOUBON !"
Cancel = True
End If
Dans la procédure, il manque juste un petit quelque chose : CurrentRegion !!!
For Each c In Range("A1:A" & [A65536].End(3).Row).CurrentRegion If c.EntireRow.Hidden = True Then MsgBox "La ligne : " & c.Row _ & " est un doublon !": Next
Ceci devrait rouler !
Salutations!
"CHRISTOPHE" a écrit dans le message de news: % Voici une partie de code que je ne comprends pas, en fait "La ligne : " & c.Row _ & " est un doublon !": ne s'affiche jamais même si il ya un doublon
If x <> y Then Sheets("Feuil1").Select For Each c In Range("A1:A" & [A65536].End(3).Row) If c.EntireRow.Hidden = True Then MsgBox "La ligne : " & c.Row _ & " est un doublon !": Next Sheets("Feuil1").ShowAllData MsgBox "Fichier non enregistré, IL Y A UN DOUBON !" Cancel = True End If