Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel aide sir boucle For...Next

aide sir boucle For...Next

4 réponses
Avatar
Christian Raoux
Salut à tous

J'ai dans une feueille la procedure suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
Next i
End Sub

Qui me permet d'afficher ou pas des ligne d'une feuille et de masquer des
feuilles
Je voudrai qu si "i" =20 la boucle ne s'exécute pas mais qu "i" augmente
de +1 car sur la ligne 20 j'ai un commentaire donc non vide

merci d'avance

A+
Christian
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
garnote
Salut Christian,

For i = 1 To 50
If i = 20 Then i = i+1
....

Je n'ai pas vérifié mais ...

Serge

"Christian Raoux" a écrit dans le message de news:

Salut à tous

J'ai dans une feueille la procedure suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
Next i
End Sub

Qui me permet d'afficher ou pas des ligne d'une feuille et de masquer des
feuilles
Je voudrai qu si "i" la boucle ne s'exécute pas mais qu "i" augmente
de +1 car sur la ligne 20 j'ai un commentaire donc non vide

merci d'avance

A+
Christian


Avatar
garnote
ben oui, c'est bien ce que je ne disais pas !

Serge

"" a écrit dans le message de news:
#
Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
if i then goto suite
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
suite:
Next i
End Sub


"Christian Raoux" a écrit dans le message de
news:


Salut à tous

J'ai dans une feueille la procedure suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
Next i
End Sub

Qui me permet d'afficher ou pas des ligne d'une feuille et de masquer
des


feuilles
Je voudrai qu si "i" la boucle ne s'exécute pas mais qu "i" augmente
de +1 car sur la ligne 20 j'ai un commentaire donc non vide

merci d'avance

A+
Christian






Avatar
sabatier
et si tu pouvais, christian, par la même occasion, supprimer le deuxième
"r" de "salarié", t'aurais tout juste et ça serait plus classe...AMHA
jps

garnote a écrit:
Salut Christian,

For i = 1 To 50
If i = 20 Then i = i+1
....

Je n'ai pas vérifié mais ...

Serge

"Christian Raoux" a écrit dans le message de news:


Salut à tous

J'ai dans une feueille la procedure suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
Next i
End Sub

Qui me permet d'afficher ou pas des ligne d'une feuille et de masquer des
feuilles
Je voudrai qu si "i" la boucle ne s'exécute pas mais qu "i" augmente
de +1 car sur la ligne 20 j'ai un commentaire donc non vide

merci d'avance

A+
Christian







Avatar
Christian Raoux
Merci pour ces réponses

A+

Christian Raoux écrivait
news::

Salut à tous

J'ai dans une feueille la procedure suivante :


Private Sub Worksheet_Change(ByVal Target As Range)
Dim IndexFeuil As Byte
'Affiche ou cache les ligne vides des salariers
'sur les feuille planning
LigneSalarier = 6
NumFeuilNom = 2
IndexFeuil = 16
NomFeil = "Nom" & NumFeuilNom
For i = 1 To 50
If Salariers.Cells(LigneSalarier, 1) = "" Then
Janvier.Rows(LigneSalarier).Hidden = True
Sheets(IndexFeuil).Visible = False
Else
Janvier.Rows(LigneSalarier).Hidden = False
Sheets(IndexFeuil).Visible = True
End If
IndexFeuil = IndexFeuil + 1
LigneSalarier = LigneSalarier + 1
Next i
End Sub

Qui me permet d'afficher ou pas des ligne d'une feuille et de masquer
des feuilles
Je voudrai qu si "i" la boucle ne s'exécute pas mais qu "i"
augmente de +1 car sur la ligne 20 j'ai un commentaire donc non vide

merci d'avance

A+
Christian