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