RE: Remise a zero de certaines cellules

[Vinz]

RE boujour
Je remercie sergiO de m'avoir apporter son aide et REvient solliciter la votre (dite le si j abuse...)😱
J ai reussi à effacer le contenu de certaines cellules,et maintenant j aimerai effacer le contenu de cellules situé sur une feuille différente avec le meme bouton,celui situer sur la premiere feuille.
J ai essayer depasser par le VBA de l otre feuille mais rien à faire...
Merci de votre attention

 

[Adeus33]

Bonjour Vinz
Si tu arrive a supprimer des cellules dans une page tu peux proceder de la meme facon pour les autres onglets.

Il te suffit juste de te positionner sur la feuille en question en utilisant le code suivant:

sheets('Nom de ton onglet').select
et apres tu marque le code pour supprimer les cellules voulues.

Voila bon courage

Adeus33

 

[Vinz]

Je te remercie,

c est ce code que j arrivai pas a trouver.

 

[SergiO]

Re bonjour Vinz

Si tu mets cela devant ta macro,

Sheets(Array('Feuil1', 'Feuil2')).Select

les actions suivantes qui permettent d'effacer tes cellules se feront simultanémént sur les 2 feuilles.

@+

 

[Vinz]

Probleme: il affiche un message d'erreur,il neveux pas aller sur la feuille que je lui demande... :S

 

[Adeus33]

Peux tu envoyé un fichier joint Vinz?

 

[SergiO]

Re,

Le premier code modifié :

Sub Test()


Sheets(Array('Feuil1', 'Feuil2')).Select

Range('A1').Select
ActiveCell.ClearContents
Range('B2').Select
ActiveCell.ClearContents
Range('C3').Select
ActiveCell.ClearContents
Range('A1').Select

Sheets('Feuil1').Select


End Sub


Bon cour@ge

 

[Vinz]

Il dit comme msg d erreur:

'L indice n'appartient pas à la sélection'
Il pointe alors la formule de selection de la feuille: Sheets...

 

[Adeus33]

Si tu ne peux pas envoyer de fichier joint peux tu nous mettre la totalité de ton code

 

[Vinz]

Voila,c es le bouton sur la feuille de sasi, j aimerai qu il efface ausii les charges sur la feuille chargeRF.
Merci de prendre du temps pour moi.

 

[Vinz]

 

[Vinz]

:angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry: :angry:
J arrive pas a envoyer le fichier [file name=tableaudesimulationdinvestissementimobillier_20060515115425.zip size=42310]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tableaudesimulationdinvestissementimobillier_20060515115425.zip[/file]

 

[SergiO]

Re,

Essaye avec ça :

Sub Efface()


Sheets('Feuille Saisie').Select

Range('B3:B4').Select
Selection.ClearContents
Range('B9:B14').Select
Selection.ClearContents
Range('B20').Select
Selection.ClearContents
Range('D3😀5').Select
Selection.ClearContents
Range('D7').Select
Selection.ClearContents
Range('D11😀12').Select
Selection.ClearContents
Range('D14').Select
Selection.ClearContents
Range('D16').Select
Selection.ClearContents
Range('D19😀20').Select
Selection.ClearContents


Sheets('Charges RF').Select

Range('B2:B18').Select
Selection.ClearContents

Sheets('Feuille Saisie').Select


End Sub

 

[Vinz]

Merci,

Mais une fois plus il bug,il pointe

Private Sub CommandButton1_Click()
Sheets('Feuille Saisie').Select

Range('B3:B4').Select
Selection.ClearContents
Range('B9:B14').Select
Selection.ClearContents
Range('B20').Select
Selection.ClearContents
Range('D3😀5').Select
Selection.ClearContents
Range('D7').Select
Selection.ClearContents
Range('D11😀12').Select
Selection.ClearContents
Range('D14').Select
Selection.ClearContents
Range('D16').Select
Selection.ClearContents
Range('D19😀20').Select
Selection.ClearContents


Sheets('Charges RF').Select

Range('B2').Select => La methode select de la classe rnga a echouer
ActiveCell.ClearContents

Sheets('Feuille Saisie').Select
End Sub

Merci quand meme,je vais essayer de trouver la solution