Sujet Précédent Sujet Suivant

Problème de sélection conditionnelle

Fermé
rigolobobo Messages postés 2 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 15 janvier 2014 - Modifié par rigolobobo le 15/01/2014 à 16:48
rigolobobo Messages postés 2 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 15 janvier 2014 - 15 janv. 2014 à 17:50
Bonjour,

Je débute avec VBA et ça fait un bon bout de temps que je cherche une réponse à ma question, sans succès donc je me tourne vers vous pour une question de sélection.

J'aurais besoin de sélectionner :

- Dans les colonnes A-V
- A partir de la ligne 15
- Toutes les lignes contenant au moins une cellule non vide qui n'est pas une formule.

Le but étant de pouvoir sélectionner automatiquement toutes les lignes dans lesquelles des données ont été rentrées manuellement. J'ai ensuite une autre macro (qui elle fonctionne) me permettant d'effacer le contenu des cellules sélectionnées remplies manuellement tout en laissant intact les cellules contenant des formules.

Merci d'avance!

1 réponse

Réponse 1 / 1
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 15/01/2014 à 16:52
Bonjour,

un principe de recherche: 

Sub test()
    'zone A-V ligne 15 a xxxx
    Fin = 100       'a remplacer par derniere ligne
    With Worksheets("feuil1")
        'boucle lignes
        For x = 15 To Fin
            'boucle colonnes
            For y = 1 To 22
                'test pas formule et pas vide
                If Left$(Cells(x, y).Formula, 1) <> "=" And Cells(x, y) <> "" Then
                    'Dans ce cas  ?????????????
                    Z = Z + 1
                    Exit For
                End If
            Next y
        Next x
    End With
End Sub

que voulez-vous faire de ces lignes ????
1
rigolobobo Messages postés 2 Date d'inscription mercredi 15 janvier 2014 Statut Membre Dernière intervention 15 janvier 2014
15 janv. 2014 à 17:50
Merci de me filer un coup de main!

Je vais voire si j'arrive à faire ce que je veux avec ça.

En fait j'ai un fichier excel qui va être utilisé par différentes personnes. Elles doivent renseigner des informations manuellement, et les formules dans le fichier font le reste.

J'ai fait une macro pour effacer toutes les données saisies dans la plage A:V (c'est à dire que les formules restent intactes) mais cela prend beaucoup trop longtemps car ma macro va chercher jusqu'a la ligne 1000 (c'est le nombre de lignes de la plage avec les formules) dans certains cas ou le fichier est mal rempli par l'utilisateur.

Je ne peux pas changer la structure du fichier (nombre de lignes avec les formules) et je ne peux pas savoir à l'avance pour combien de lignes il sera nécessaire d'effacer les données.

Lorsque le fichier est mal rempli, la macro tombe rapidement sur une cellule vide alors qu'il reste encore des lignes à effacer.

C'est pour ça que je cherche un moyen pour continuer à effacer les données des lignes en descendant, jusqu'à tomber sur une ligne ou toute les cellules sont soit vides soit sont une formule.

J'espère que je suis un peu plus clair
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Outil sélection Adobe Illustrator
csansiqu -
HMGraphics -

20 réponses
Excel: Retourner une sélection
cybergate -
Raymond PENTIER -

2 réponses
Mise en forme Conditionnelle sous Powerpoint
TI2509 -
m@rina -

1 réponse
Mise en forme conditionnelle 2 conditions
happydays -
Emilie -

7 réponses