XL 2019 allez sur feuil4

[LEPATOCHE]

Bonsoir a tous
j'ai un bouton de controle de formulaire
dans la feuil 1 , et quand je clique dessus il me calcul certaine choses ,
donc ce que je voudrais sur ce meme bouton dé qu'il a fini de calculer il me renvoye en feuil4 !
je ne peus pas envoyer de fichier car trop volumineux .

merci de votre aide precieuse .

en dessous
voici ce que j'ai marquer :

Sub Effacer_400_lignes()
Dim i&
With ActiveSheet 'feuille à adapter si nécessaire
With .Range("A1", .UsedRange).EntireRow
For i = 1 To .Rows.Count Step 400
If Application.CountA(.Rows(i).Resize(400)) Then .Rows(i).Resize(400).Clear: Exit Sub
Next
End With
End With
Sheets("Feuil4").Select
End Sub

 

[Eric C]

Bonsoir le forum
Bonsoir LEPATOCHE

Il te faut "enlever" : Exit sub après .Clear car tu sors de ta procédure.....
Bonne soirée à toutes & à tous
@+ Eric c

 

[LEPATOCHE]

ca ne marche pas eric c mais merci quand meme

 

[Eric C]

Re le fil

Bah si cela fonctionne. Pub terminée, je repars
@+

 

[LEPATOCHE]

si tu veus ca marche mais quand j'appuis une fois sur le bouton sa doit m'effacer que 400 lignes seulement ! et apres il vas a la feuille 4 ! ton truc a toi il efface toutes les lignes et apres il vas a la feuil 4 et je ne le veus pas !
merci donc a réviser de votre coter bonne soiree .

 

[Eric C]

Re le fil,


Désolé mais le film et la vie de famille avant tout.......
Si tu sors de la procédure c'est fini. Il te faut donc passer commande avant l'exit.

If Application.CountA(.Rows(i).Resize(400)) Then .Rows(i).Resize(400).Clear: Sheets("Feuil4").Select
 Exit Sub
Next
.....

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.

Bonne soirée à toutes & à tous

@+ Eric c

 

[st007]

coucou, je dirais
Sheets("Feuil4").Activate

 

[Eric C]

Re le fil,

@st007 : .Select ou .Activate revient au même dans le code de notre ami. En effet avec le Exit Sub, il sort de la procédure dons plus de possibilité de se rendre sur la feuille "4".
@+ Eric c

 

[LEPATOCHE]

encore merci j'abandonne mon projet mille fois merci a vous tous
bonne nuit moi allez dormir le travail m'attend demain !