Bonjour, dans un classeur, j'ai plusieurs feuilles avec=20
des donn=E9es qui se trouvent dans les m=EAmes cellules sur=20
toutes les feuilles j'aimerai =E0 l'aide d'un Userform du=20
style mot de passe pouvoir effacer le contenue de mes=20
cellules en effectuant un clic sur le bouton Valider de=20
mon userfom apr=E8s avoir entrer le mot de passe le=20
probl=E8me c'est que les cellules sont un peu partou dans=20
la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes=20
mes feuilles, est-il possible d'automatiser la chose sans=20
r=E9p=E9ter =E0 chaque fois la r=E9f=E9rence des cellules =E0 vider=20
pour chaque feuille et surtout du fait que les cellules=20
ne soient pas les unes =E0 c=F4t=E9 des autres ou les unes en=20
dessous des autres.
J'esp=E8re que ma question n'est pas trop farfelue merci =E0=20
tous.
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
papou
Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news: 1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
Bonjour
Tout cela est tout à fait réalisable.
Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5
S'agit-il d'effacer les données toutes les 5 lignes sur les colonnes A, B,
D, F et H ?
Sinon, pour débuter, voici une façon de procéder :
Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure :
Private Sub CommandButton1_Click()
If Me.TextBox1 = "papou" Then
SupprimerValeurs
Else
MsgBox "Mot de passe incorrect", vbExclamation
Exit Sub
End If
End Sub
'Procédure dans un module standard :
Sub SupprimerValeurs()
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
With f
.Range("A1,B1,D1,F1,H1").ClearContents
End With
Next f
End Sub
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de news:
1966601c41c24$e1866c20$a101280a@phx.gbl...
Bonjour, dans un classeur, j'ai plusieurs feuilles avec
des données qui se trouvent dans les mêmes cellules sur
toutes les feuilles j'aimerai à l'aide d'un Userform du
style mot de passe pouvoir effacer le contenue de mes
cellules en effectuant un clic sur le bouton Valider de
mon userfom après avoir entrer le mot de passe le
problème c'est que les cellules sont un peu partou dans
la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes
mes feuilles, est-il possible d'automatiser la chose sans
répéter à chaque fois la référence des cellules à vider
pour chaque feuille et surtout du fait que les cellules
ne soient pas les unes à côté des autres ou les unes en
dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à
tous.
Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news: 1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
STEN
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
-----Message d'origine-----
Bonjour
Tout cela est tout à fait réalisable.
Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5
S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ?
Sinon, pour débuter, voici une façon de procéder :
Tu effectues une vérification du mot de passe sur ton
Userform et s'il est
correct tu appelles une procédure :
Private Sub CommandButton1_Click()
If Me.TextBox1 = "papou" Then
SupprimerValeurs
Else
MsgBox "Mot de passe incorrect", vbExclamation
Exit Sub
End If
End Sub
'Procédure dans un module standard :
Sub SupprimerValeurs()
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
With f
.Range("A1,B1,D1,F1,H1").ClearContents
End With
Next f
End Sub
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
1966601c41c24$e1866c20$a101280a@phx.gbl...
Bonjour, dans un classeur, j'ai plusieurs feuilles avec
des données qui se trouvent dans les mêmes cellules sur
toutes les feuilles j'aimerai à l'aide d'un Userform du
style mot de passe pouvoir effacer le contenue de mes
cellules en effectuant un clic sur le bouton Valider de
mon userfom après avoir entrer le mot de passe le
problème c'est que les cellules sont un peu partou dans
la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes
mes feuilles, est-il possible d'automatiser la chose sans
répéter à chaque fois la référence des cellules à vider
pour chaque feuille et surtout du fait que les cellules
ne soient pas les unes à côté des autres ou les unes en
dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à
tous.
.Salut Papou,
voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9
A13,B13,D13,H13
et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes
les 4 lignes, il y à juste une feuille ou cela s'arrête à
la ligne A25 (les lignes représentent les semaines de
l'année j'en ai mis 53 a cause des années bisextiles.
Voilà encore merci pour ton aide!
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
papou
Re Dim f As Worksheet, i As Long For Each f In ThisWorkbook.Sheets With f For i = 9 To 53 Step 4 .Range("A" & i & "," & "B" & i & "," & "D" & i & "," & "F" & i & "," & "H" & i).ClearContents Next i End With Next f
Cordialement Pascal
"STEN" a écrit dans le message de news: 1965701c41c8c$41a184c0$
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
Re
Dim f As Worksheet, i As Long
For Each f In ThisWorkbook.Sheets
With f
For i = 9 To 53 Step 4
.Range("A" & i & "," & "B" & i & "," & "D" & i & "," & "F" & i & "," &
"H" & i).ClearContents
Next i
End With
Next f
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de news:
1965701c41c8c$41a184c0$a401280a@phx.gbl...
-----Message d'origine-----
Bonjour
Tout cela est tout à fait réalisable.
Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5
S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ?
Sinon, pour débuter, voici une façon de procéder :
Tu effectues une vérification du mot de passe sur ton
Userform et s'il est
correct tu appelles une procédure :
Private Sub CommandButton1_Click()
If Me.TextBox1 = "papou" Then
SupprimerValeurs
Else
MsgBox "Mot de passe incorrect", vbExclamation
Exit Sub
End If
End Sub
'Procédure dans un module standard :
Sub SupprimerValeurs()
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
With f
.Range("A1,B1,D1,F1,H1").ClearContents
End With
Next f
End Sub
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
1966601c41c24$e1866c20$a101280a@phx.gbl...
Bonjour, dans un classeur, j'ai plusieurs feuilles avec
des données qui se trouvent dans les mêmes cellules sur
toutes les feuilles j'aimerai à l'aide d'un Userform du
style mot de passe pouvoir effacer le contenue de mes
cellules en effectuant un clic sur le bouton Valider de
mon userfom après avoir entrer le mot de passe le
problème c'est que les cellules sont un peu partou dans
la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes
mes feuilles, est-il possible d'automatiser la chose sans
répéter à chaque fois la référence des cellules à vider
pour chaque feuille et surtout du fait que les cellules
ne soient pas les unes à côté des autres ou les unes en
dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à
tous.
.Salut Papou,
voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9
A13,B13,D13,H13
et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes
les 4 lignes, il y à juste une feuille ou cela s'arrête à
la ligne A25 (les lignes représentent les semaines de
l'année j'en ai mis 53 a cause des années bisextiles.
Voilà encore merci pour ton aide!
Re Dim f As Worksheet, i As Long For Each f In ThisWorkbook.Sheets With f For i = 9 To 53 Step 4 .Range("A" & i & "," & "B" & i & "," & "D" & i & "," & "F" & i & "," & "H" & i).ClearContents Next i End With Next f
Cordialement Pascal
"STEN" a écrit dans le message de news: 1965701c41c8c$41a184c0$
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
STEN
Merci pour ton aide
-----Message d'origine----- Re Dim f As Worksheet, i As Long For Each f In ThisWorkbook.Sheets With f For i = 9 To 53 Step 4 .Range("A" & i & "," & "B" & i & "," & "D" & i & "," & "F" & i & "," &
"H" & i).ClearContents Next i End With Next f
Cordialement Pascal
"STEN" a écrit dans le message de news:
1965701c41c8c$41a184c0$
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans
répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
.
Merci pour ton aide
-----Message d'origine-----
Re
Dim f As Worksheet, i As Long
For Each f In ThisWorkbook.Sheets
With f
For i = 9 To 53 Step 4
.Range("A" & i & "," & "B" & i & "," & "D" & i & ","
& "F" & i & "," &
"H" & i).ClearContents
Next i
End With
Next f
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
1965701c41c8c$41a184c0$a401280a@phx.gbl...
-----Message d'origine-----
Bonjour
Tout cela est tout à fait réalisable.
Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5
S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ?
Sinon, pour débuter, voici une façon de procéder :
Tu effectues une vérification du mot de passe sur ton
Userform et s'il est
correct tu appelles une procédure :
Private Sub CommandButton1_Click()
If Me.TextBox1 = "papou" Then
SupprimerValeurs
Else
MsgBox "Mot de passe incorrect", vbExclamation
Exit Sub
End If
End Sub
'Procédure dans un module standard :
Sub SupprimerValeurs()
Dim f As Worksheet
For Each f In ThisWorkbook.Sheets
With f
.Range("A1,B1,D1,F1,H1").ClearContents
End With
Next f
End Sub
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
1966601c41c24$e1866c20$a101280a@phx.gbl...
Bonjour, dans un classeur, j'ai plusieurs feuilles avec
des données qui se trouvent dans les mêmes cellules sur
toutes les feuilles j'aimerai à l'aide d'un Userform du
style mot de passe pouvoir effacer le contenue de mes
cellules en effectuant un clic sur le bouton Valider de
mon userfom après avoir entrer le mot de passe le
problème c'est que les cellules sont un peu partou dans
la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous
A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes
mes feuilles, est-il possible d'automatiser la chose
sans
répéter à chaque fois la référence des cellules à vider
pour chaque feuille et surtout du fait que les cellules
ne soient pas les unes à côté des autres ou les unes en
dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à
tous.
.Salut Papou,
voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9
A13,B13,D13,H13
et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes
les 4 lignes, il y à juste une feuille ou cela s'arrête à
la ligne A25 (les lignes représentent les semaines de
l'année j'en ai mis 53 a cause des années bisextiles.
Voilà encore merci pour ton aide!
-----Message d'origine----- Re Dim f As Worksheet, i As Long For Each f In ThisWorkbook.Sheets With f For i = 9 To 53 Step 4 .Range("A" & i & "," & "B" & i & "," & "D" & i & "," & "F" & i & "," &
"H" & i).ClearContents Next i End With Next f
Cordialement Pascal
"STEN" a écrit dans le message de news:
1965701c41c8c$41a184c0$
-----Message d'origine----- Bonjour Tout cela est tout à fait réalisable. Néanmoins il faudrait un peu plus de précisions :
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 S'agit-il d'effacer les données toutes les 5 lignes sur
les colonnes A, B,
D, F et H ? Sinon, pour débuter, voici une façon de procéder : Tu effectues une vérification du mot de passe sur ton Userform et s'il est
correct tu appelles une procédure : Private Sub CommandButton1_Click() If Me.TextBox1 = "papou" Then SupprimerValeurs Else MsgBox "Mot de passe incorrect", vbExclamation Exit Sub End If End Sub 'Procédure dans un module standard : Sub SupprimerValeurs() Dim f As Worksheet For Each f In ThisWorkbook.Sheets With f .Range("A1,B1,D1,F1,H1").ClearContents End With Next f End Sub
Cordialement Pascal
"STEN" a écrit dans le message de news:
1966601c41c24$e1866c20$ Bonjour, dans un classeur, j'ai plusieurs feuilles avec des données qui se trouvent dans les mêmes cellules sur toutes les feuilles j'aimerai à l'aide d'un Userform du style mot de passe pouvoir effacer le contenue de mes cellules en effectuant un clic sur le bouton Valider de mon userfom après avoir entrer le mot de passe le problème c'est que les cellules sont un peu partou dans la feuille exemple:
A1, B1, D1, F1, H1 puis en dessous A5, B5, D5, F5, H5 et ainsi de suite et cela sur toutes mes feuilles, est-il possible d'automatiser la chose sans
répéter à chaque fois la référence des cellules à vider pour chaque feuille et surtout du fait que les cellules ne soient pas les unes à côté des autres ou les unes en dessous des autres.
J'espère que ma question n'est pas trop farfelue merci à tous.
.Salut Papou, voilà exactement ce qui'l me faut, j'ai 4 feuilles ou les
cellules a vidées partent de:
A9,B9,D9,F9,H9 A13,B13,D13,H13 et ainsi de suite jusqu'à A53,B53,D53,F53,H53 donc toutes les 4 lignes, il y à juste une feuille ou cela s'arrête à la ligne A25 (les lignes représentent les semaines de l'année j'en ai mis 53 a cause des années bisextiles. Voilà encore merci pour ton aide!
