Bonjour,
J'ai un classeur qui comporte 12 feuilles, une pour=20
chaque mois de l'ann=E9e.
Un menu principal, pour acceder au feuilles, sur ce menu=20
un bouton pour supprimer les donn=E9es enregistr=E9es dans=20
chaque feuille a savoir que toutes les feuilles sont=20
identiques.
J'aimerai supprimer toutes les donn=E9es enregistr=E9es sans=20
avoir =E0 r=E9peter chaque fois la m=EAme ligne pour chaque=20
feuille.
Je m'explique voici ce que j'=E9cris:
Sub cmdSuppDonnees_Click ()
Janvier.Range("A1:E30").value =3D ""
Fevrier.range("A1:E30").value =3D ""
et ce jusqu'=E0 la feuille de d=E9cembre, est-il possible=20
d'avoir le m=EAme r=E9sultat en selectionnant toutes les=20
feuilles d'un seul coup puisque la plage de cellules =E0=20
vid=E9e et identique pour chaque feuille?
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... ... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ...
ChrisV
"STEN" a écrit dans le message de news: 13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click ()
Application.ScreenUpdating = False
Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _
Sheets.Count & "))")).Select True
Range("A1:E30").Select
Selection.ClearContents
Sheets(1).Select
End Sub
Tu pourrais passer aussi par une boucle...
...
Sheets(2).Select
For i = 2 To Sheets.Count
Sheets(i).Select Replace:úlse
Next i
...
ChrisV
"STEN" <jsterjean@aol.com> a écrit dans le message de news:
13f3401c3f80e$48ea2180$a001280a@phx.gbl...
Bonjour,
J'ai un classeur qui comporte 12 feuilles, une pour
chaque mois de l'année.
Un menu principal, pour acceder au feuilles, sur ce menu
un bouton pour supprimer les données enregistrées dans
chaque feuille a savoir que toutes les feuilles sont
identiques.
J'aimerai supprimer toutes les données enregistrées sans
avoir à répeter chaque fois la même ligne pour chaque
feuille.
Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click ()
Janvier.Range("A1:E30").value = ""
Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible
d'avoir le même résultat en selectionnant toutes les
feuilles d'un seul coup puisque la plage de cellules à
vidée et identique pour chaque feuille?
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... ... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ...
ChrisV
"STEN" a écrit dans le message de news: 13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
-----Message d'origine----- Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... .... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ....
ChrisV
"STEN" a écrit dans le message de news:
13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV J'ai essaye le code que tu m'as envoyer mais il me renvoi
une erreur a cause des deux points pourquoi?
-----Message d'origine-----
Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click ()
Application.ScreenUpdating = False
Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _
Sheets.Count & "))")).Select True
Range("A1:E30").Select
Selection.ClearContents
Sheets(1).Select
End Sub
Tu pourrais passer aussi par une boucle...
....
Sheets(2).Select
For i = 2 To Sheets.Count
Sheets(i).Select Replace:=False
Next i
....
ChrisV
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
13f3401c3f80e$48ea2180$a001280a@phx.gbl...
Bonjour,
J'ai un classeur qui comporte 12 feuilles, une pour
chaque mois de l'année.
Un menu principal, pour acceder au feuilles, sur ce menu
un bouton pour supprimer les données enregistrées dans
chaque feuille a savoir que toutes les feuilles sont
identiques.
J'aimerai supprimer toutes les données enregistrées sans
avoir à répeter chaque fois la même ligne pour chaque
feuille.
Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click ()
Janvier.Range("A1:E30").value = ""
Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible
d'avoir le même résultat en selectionnant toutes les
feuilles d'un seul coup puisque la plage de cellules à
vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV
J'ai essaye le code que tu m'as envoyer mais il me renvoi
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... .... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ....
ChrisV
"STEN" a écrit dans le message de news:
13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV J'ai essaye le code que tu m'as envoyer mais il me renvoi
une erreur a cause des deux points pourquoi?
ChrisV
Re,
...une erreur a cause des deux points
Quelle ligne ?
ChrisV
a écrit dans le message de news: 14c1a01c3f966$eacba1a0$
-----Message d'origine----- Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... .... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ....
ChrisV
"STEN" a écrit dans le message de news:
13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV J'ai essaye le code que tu m'as envoyer mais il me renvoi
une erreur a cause des deux points pourquoi?
Re,
...une erreur a cause des deux points
Quelle ligne ?
ChrisV
<jsterjean@aol.com> a écrit dans le message de news:
14c1a01c3f966$eacba1a0$a501280a@phx.gbl...
-----Message d'origine-----
Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click ()
Application.ScreenUpdating = False
Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _
Sheets.Count & "))")).Select True
Range("A1:E30").Select
Selection.ClearContents
Sheets(1).Select
End Sub
Tu pourrais passer aussi par une boucle...
....
Sheets(2).Select
For i = 2 To Sheets.Count
Sheets(i).Select Replace:úlse
Next i
....
ChrisV
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
13f3401c3f80e$48ea2180$a001280a@phx.gbl...
Bonjour,
J'ai un classeur qui comporte 12 feuilles, une pour
chaque mois de l'année.
Un menu principal, pour acceder au feuilles, sur ce menu
un bouton pour supprimer les données enregistrées dans
chaque feuille a savoir que toutes les feuilles sont
identiques.
J'aimerai supprimer toutes les données enregistrées sans
avoir à répeter chaque fois la même ligne pour chaque
feuille.
Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click ()
Janvier.Range("A1:E30").value = ""
Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible
d'avoir le même résultat en selectionnant toutes les
feuilles d'un seul coup puisque la plage de cellules à
vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV
J'ai essaye le code que tu m'as envoyer mais il me renvoi
a écrit dans le message de news: 14c1a01c3f966$eacba1a0$
-----Message d'origine----- Bonjour Sten,
En supposant que l'index de la feuille "menu" soit le 1:
Sub cmdSuppDonnees_Click () Application.ScreenUpdating = False Sheets(Evaluate("TRANSPOSE(ROW(" & 2 & ":" & _ Sheets.Count & "))")).Select True Range("A1:E30").Select Selection.ClearContents Sheets(1).Select End Sub
Tu pourrais passer aussi par une boucle... .... Sheets(2).Select For i = 2 To Sheets.Count Sheets(i).Select Replace:úlse Next i ....
ChrisV
"STEN" a écrit dans le message de news:
13f3401c3f80e$48ea2180$ Bonjour, J'ai un classeur qui comporte 12 feuilles, une pour chaque mois de l'année. Un menu principal, pour acceder au feuilles, sur ce menu un bouton pour supprimer les données enregistrées dans chaque feuille a savoir que toutes les feuilles sont identiques. J'aimerai supprimer toutes les données enregistrées sans avoir à répeter chaque fois la même ligne pour chaque feuille. Je m'explique voici ce que j'écris:
Sub cmdSuppDonnees_Click () Janvier.Range("A1:E30").value = "" Fevrier.range("A1:E30").value = ""
et ce jusqu'à la feuille de décembre, est-il possible d'avoir le même résultat en selectionnant toutes les feuilles d'un seul coup puisque la plage de cellules à vidée et identique pour chaque feuille?
Merci de votre aide.
.Salut ChrisV J'ai essaye le code que tu m'as envoyer mais il me renvoi
