Tirer les formules avec boucle et condition excel

**melodyyy** · 19/10/2006, 11h52

au secours !!!

je dosi tirer les formules d'une ligne avec condtion. Si dans la cellule il y'a un 0 alors je tire jusqu'en bas de la colonne.

Je dois donc installer une boucle: do while

mais j'ai l'impression de pas savoir m'en servir aidez moi !

**ouskel'n'or** · 19/10/2006, 12h05

Envoyé par melodyyy

Si dans la cellule il y'a un 0 alors je tire jusqu'en bas de la colonne.

Qu'entends-tu par là ? Que tu dois mettre des zéro sur toutes les cellules renseignées de la colonne à partir du zéro ? Ou bien jusqu'à la ligne 65536 ?
Je prends l'hypothèse N° 1
D'abord, tu dois identifier ta dernière ligne renseignée, puis, une fois le zéro rencontré, recopier le zéro vers le bas jusqu'à la dernière ligne.
Tu dis

**melodyyy** · 19/10/2006, 12h06

en fait je dois dire:
Si tu trouve un 0 dans la cellule alors tu etend la formule jusqu'a la fin.Mais pas en linéaire comme le ferait l'enregisteur de macro...

donc il me faut une boucle, et pi j'y arrive pas je me sens super nulle c'est déprimant

**illight** · 19/10/2006, 12h14

Envoyé par melodyyy

au secours !!!

J'adore les messages qui commencent comme ça

J'ai pas trop compris ton message par contre

Il faut que tu tire une formule a partir du 0 jusqu'a la fin ?

Et tu n'es pas nulle, tu apprend c'est pas pareil

**melodyyy** · 19/10/2006, 12h16

en tu as une cellule, avec une fomule, qui donne 0.
si j'ai ça je tire cette formule jusqu'en bas, si j'ai pas ça je tire pas

**SfJ5Rpw8** · 19/10/2006, 12h27

Envoyé par melodyyy

en tu as une cellule, avec une fomule, qui donne 0.
si j'ai ça je tire cette formule jusqu'en bas, si j'ai pas ça je tire pas

essai de dire cela autrement ... en supprimant "tirer" et "jusqu'en bas" ...soit plus claire...

**illight** · 19/10/2006, 12h35

Tu n'aurai pas une xemple sinon avec des valeurs ?

**ouskel'n'or** · 19/10/2006, 12h38

J'ai sans doute pas tout compris mais essaie ça et dis-nous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim Plage, NoColonne, ValCherchée, etc
    ValCherchée = 0
    NoColonne = 3
    DernièreLigne = Cells(1, NoColonne).SpecialCells(xlCellTypeLastCell).Row
    Plage = Range(Cells(1, NoColonne), Cells(DernièreLigne, NoColonne)).Address
    With Range(Plage)
            Set c = .Find(ValCherchée, LookIn:=xlValues)
            If Not c Is Nothing Then
                Range(Cells(ActiveCell.Row, NoColonne), Cells(DernièreLigne, NoColonne)).Select
                Selection.FillDown
            End If
    End With

A+

PS - bill se chargera de simplifier ma plage

**melodyyy** · 19/10/2006, 13h12

ça peut pas le faire j'ai un énorme fichier, et en fait mon fichier commence par à la ligne 20 tu vois ?
et le numéro de la cellule je le connais comment ?

**melodyyy** · 19/10/2006, 13h15

de plus j'ai des colonnes cachées...

**illight** · 19/10/2006, 14h13

Envoyé par melodyyy

ça peut pas le faire j'ai un énorme fichier, et en fait mon fichier commence par à la ligne 20 tu vois ?
et le numéro de la cellule je le connais comment ?

Tu fais un exemple bidon a ta manière avec des faux chiffres

**ouskel'n'or** · 19/10/2006, 14h14

Là, tu te moques

Tu ajoutes ScreenUpdating = false au début, tu affiches ta colonne masquée, et tu mets ScreenUpdating =true à la fin,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Plage, NoColonne, ValCherchée, etc
    Application.ScreenUpdating = false
    NoColonne = 3
    Cells(1, NoColonne).EntireColumn.Hidden = False
    NoPremièreLigne = 20
    ValCherchée = 0
    DernièreLigne = Cells(NoPremièreLigne, NoColonne).SpecialCells(xlCellTypeLastCell).Row
    Plage = Range(Cells(NoPremièreLigne, NoColonne), Cells(DernièreLigne, NoColonne)).Address
    With Range(Plage)
            Set c = .Find(ValCherchée, LookIn:=xlValues)
            If Not c Is Nothing Then
                Range(Cells(ActiveCell.Row, NoColonne), Cells(DernièreLigne, NoColonne)).Select
                Selection.FillDown
            End If
    End With
    Cells(1, NoColonne).EntireColumn.Hidden = True
    Application.ScreenUpdating = True

Mais tu peux toujours nous demander si tu as besoin de quelque chose

**ouskel'n'or** · 19/10/2006, 14h17

Pour l'histoire du gros fichier, ce n'est pas parce que tu as plus de deux lignes dans ta macro qu'elle est plus lente

Find sera toujours plus rapide qu'un examen ligne par ligne

**melodyyy** · 19/10/2006, 14h17

je me moque pas je connais pas VBA ou presque pas j'apprends...

c'est compliqué comme macro non pour juste tirer une formule ?

**melodyyy** · 19/10/2006, 14h19

j'ai pas pu tester il veut pas de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(ActiveCell.Row, NoColonne), Cells(DernièreLigne, NoColonne)).Select

**ouskel'n'or** · 19/10/2006, 14h20

Et d'abord, on ne dit pas tirer une formule mais recopier... Si j'ai bien compris ce que tu voulais faire

Mais effectivement, tu peux tout faire à la main, c'est plus simple

Te formalise pas, j'aime bien taquiner

**melodyyy** · 19/10/2006, 14h32

ben oui mais y'a trop trop de colonnes...la macro dvient extra grande...
du coup au taf ils veulent pas

**melodyyy** · 19/10/2006, 14h42

bon alors...
ta 2eme macro en fait est refusée par VBA parce que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derniereligne=cells(nopremiereligne,35).SpecialCells(xlCellTypelastCell).row

il en veut pas. Le 35 c'est pour moi, le numéro de la colonne...

**ced600** · 19/10/2006, 14h46

Peut tu donner l'erreur que vb te donne ?
Et par curiosité, il y a combien de ligne dans ta macro ?

**melodyyy** · 19/10/2006, 14h51

il me met l'erreur 1004
et j'ai 565 lignes dans mon fichier

Tirer les formules avec boucle et condition excel

Macros et VBA Excel

Discussions similaires

Partager

Partager