Vba si a73 est selectionner dans macro then exit sub

liquidaxis Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
liquidaxis Messages postés 8 Date d'inscription Statut Membre Dernière intervention - 17 avril 2014 à 06:12

Bonjour je me suis lancer dans le vba excel pour la première fois
Je tente de faire une boucle pour réinitialiser ma feuille

Tout d'abord j'ai fait un template de base qui comporte
entêtes
1 liste qui est filtré a 1 linge de calcule
1 ligne de sous total de la ligne precedante en tenent compte de la qte
1 macro qui copie d une feueille a l autre 1 liste et une ligne pour ajouté jusqu'à 100 lignes au besoins
En suite il a le sous total de tout les ligne ajouté suivie des taxe et grand total

Vous comprendrez je dois faire une boucle qui va effacer dans un ordre specifique les diferent element
Ce qui fonction deja si j efface une ligne a la fois.

Lorceque je la met en boucle je dois créé une condition pour sortire de la boucle

Cette condition est:

Si ("A73") est sélectionner a un moment dans ma boucle then exit for ou sub

Je ne connait pas du tout la syntaxe pour cette expretion j ai eu des message d erreur sur tout celle que j ai tenter
Si vous pouvez m aider ca fait plusieurs soire que je cherche

Merci

A voir également:

Vba si a73 est selectionner dans macro then exit sub
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Selectionner texte sur pdf - Guide
Comment selectionner toutes les photos dans google photo - Guide

1 réponse

Réponse 1 / 1

liquidaxis Messages postés 8 Date d'inscription Statut Membre Dernière intervention 1

voici mon code pour le moment :

For i = 1 To 99
Range("A65536").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Delete
Selection.End(xlUp).Offset(-67).Activate
If IsEmpty(ActiveCell) Then Exit Sub
If IsEmpty(ActiveCell.Offset(-1, 0)) Then Set TopCell = ActiveCell Else Set TopCell = ActiveCell.End(xlToLeft)
If IsEmpty(ActiveCell.Offset(1, 0)) Then Set BottomCell = ActiveCell Else Set BottomCell = ActiveCell.End(xlToRight).End(xlDown)
Range(TopCell, BottomCell).Select
Selection.ClearContents
Selection.EntireRow.Delete

Next
End Sub

Discussions similaires

VBA Excel : sélection d'une plage variable

Problème d'allumage écran LG : "OUT OF RANGE"

"L'indice n'appartient à la sélection" + VBA

Transformer un chiffre en lettres dans excel sans macro

Votre réponse

Discussions similaires