L
Luger
Guest
Bonsoir à toutes et à tous (quoique, il est tard).
J'ai besoin de vos lumieres et surtout de vos connaissances.La macro si dessous fonctionne à merveille dans ma feuille principale.Mais voilà, quand je veux l'appliquer dans un onglet ou une autre feuille du classeur que l'on va appeler piscine, elle ne fonctionne pas, et même pas d'erreur.
Merci à vous si vous pouvez me tirer de là
Luger
Sub NuEtanch()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer
On Error Resume Next
Set Maplage = Sheets(1).Range(" NuEtanch") 'à ajuster
Err.Clear
Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub
J'ai besoin de vos lumieres et surtout de vos connaissances.La macro si dessous fonctionne à merveille dans ma feuille principale.Mais voilà, quand je veux l'appliquer dans un onglet ou une autre feuille du classeur que l'on va appeler piscine, elle ne fonctionne pas, et même pas d'erreur.
Merci à vous si vous pouvez me tirer de là
Luger
Sub NuEtanch()
Dim Maplage As Range
Dim Cell As Range
Dim Compteur As Integer
On Error Resume Next
Set Maplage = Sheets(1).Range(" NuEtanch") 'à ajuster
Err.Clear
Compteur = 1
For Each Cell In Maplage
If Cell.Value <> "" Then
Cell = Compteur
Compteur = Compteur + 1
End If
Next
End Sub