XL 2019 allez sur feuil4

LEPATOCHE

XLDnaute Occasionnel
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
 

LEPATOCHE

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon