Discussion :

[melodyyy]

voila j'ai une macro, tirage des formules, et elle marche ça d'accord...
L'ennui c'est que si je rajoute une ligne ou une colonne ça marche plus...
Donc il me faudrait une test de fin de fichier en colonne et en ligne, mais je vois pas comment je fais ça...

voici mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
'Tirer les formules'
Dim NumCol, Derligne As Integer
Derligne = 565
derniereligne = Derligne + 1
For NumCol = 36 To 256
   'Balaie chaque cellule de la ligne 20 pour chaque colonne'
   If Left(Cells(20, NumCol).Formula, 1) = "=" Then
        Range(Cells(20, NumCol), Cells(derniereligne, NumCol)).FillDown
   End If
Next NumCol

[ouskel'n'or]

Pour la 1001ième fois...

Code :

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

1
2
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column

Fais attention aux noms des variables

[melodyyy]

j'intègre ça ou ? et pourquoi attention aux noms de variables ?

[ouskel'n'or]

j'intègre ça ou ? et pourquoi attention aux noms de variables ?

Si je mets DernièreColonne comme nom de variable, c'est que c'est pour récupérer la dernière colonne. On peut le déduire, non ?
Je répondais donc à ta question, et tu aurais pu le déduire, non ?

Code :

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

1
2
3
DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
For NumCol = 36 To DernièreColonne
    'ton code

Pourquoi attention aux noms de variable ? Parce que j'ai copié une ligne contenant le même nom que ta variable mais accentué. Donc, tu corriges l'une ou l'autre

[melodyyy]

euh ouai je me suis aperçue de ma tite mèche en relisant ma question dsl je vais essayer

ça marche pas...
si je rajoute une ligne j'ai pas ma jolie tite formule...même si je rajoute une ligne au milieu de fichier

j'ai rien dis me suis débroullée

[ouskel'n'or]

Oui, si tu mets FillDown, tu copies vers le bas...
A ton avis ?
Essaie FillRight, juste pour voir

[Pierre Fauconnier]

Bonsoir

Pour la 1001ième fois...

Code :

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

1
2
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column

Fais attention aux noms des variables

Personnellement, je n'aime pas cette solution. Elle oblige à un enregistrement du fichier avant de pouvoir être utilisée de façon sûre.

En effet, si j'ai des valeurs en A1:A10 et que j'utilise le code proposé, pas de problème. Mais si j'ajoute une valeur en A20 puis que l'efface, le code proposé me renvoie 20 alors que j'attends 10 !! Ce n'est qu'après enregistrement du fichier que la bonne valeur est renvoyée...

Dès lors, je préfère ceci

Code :

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

1
2
range("a65536").end(xlup).row
range("iv1").end(xltoleft).column

qui me renvoient les bonnes valeurs à tous les coups.

Les puristes utiliseront

Code :

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

range("a" & rows.Count).End(xlUp).Row

compatible avec XL2007

Quant à

Code :

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

Selection.end(xldown)

Attention, car cela ne fonctionne que si il n'y a aucune cellule vide entre la sélection et la dernière cellule de la ligne/colonne... Sinon, le résultat est différent selon le contenu de la cellule de référence ou de celle qui la suit dans l'ordre de déplacement.
Ainsi

Code :

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

range("a1").end(xldown)

si A1 est vide, renverra à la première cellule non vide vers le bas, ou à la cellule A65536 (Xl2003 et antérieurs) si aucune cellule remplie en A.
Si A1 non vide et A2 vide, renverra à la première cellule non vide de A après A1, et A65536 si aucune cellule remplie sous A1. Si A1 non vide et A2 non vide, renverra à la cellule non vide qui précède la première cellule vide après A1...

Pas simple, mais c'est comme cela. En fait, ce fonctionnement copie le fonctionnement de CTRL+Flèche vers le bas dans Excel.

Bonne soirée quand même (bonjour l'aspirine )

[ouskel'n'or]

Personnellement, je n'aime pas cette solution. Elle oblige à un enregistrement du fichier avant de pouvoir être utilisée de façon sûre.

Personnelement, j'étais de ton avis... jusqu'à ce qu'AlainTech me signale que, non seulement ça évite les pb de lignes vides dans la plage de données mais aussi qu'en terme de temps d'exécution, c'est caïman la même chose
Mais tu as raison, faut enregistrer ce qui n'est pas un mal (mon Excel 2003 plante mon micro toutes le 35 mn ) et si tu veux vraiment connaître la première cellule vide (denièreLigne + 1) alors Range("A65535").End(xlUp).Row est plus adapté

[Pierre Fauconnier]

Mais tu as raison, faut enregistrer ce qui n'est pas un mal ...

Sauf si l'utilisateur ne veut pas enregistrer... Imagine qu'il fasse la manip (donc avec enregistrement, éventuellement en invisible), puis qu'il veuille revenir à l'ancienne version pour une raison X, c'est foutu...!

Et comme avec

Code :

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

range("a65536").end(xlup)

, tu n'as ni le problème des lignes vides, ni le problème de l'enregistrement, c'est la solution idéale, me semble-t'il...

Mais que l'on utilise l'une ou l'autre, l'important est d'en connaître les limites et les pièges éventuels, ce qui était le sens de mon intervention

Je serai ravi d'avoir l'avis d'AlainTech sur ceci.

Bonne soirée

[melodyyy]

Au secours !!! revoici mon code intgrer dans un module...lorsque je lance le module tout seul c'est nikel, lorsque j'appelle le module dans une autre feuille il descends jusqu'a 1112 au moins....je comprends pas aidez moi voici mon code

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
18
19
20
21
22
23
24
25
'Tirer les formules'
Dim NumCol, derniereligneupit, colonnerepere, Derligne As Integer
Derligne = derniereligneupit
derniereligneupit = 17
colonnerepere = 28
If Workbooks("Synthese_type_01_modele.xls").Worksheets("Feuille principale").FilterMode = True Then
ActiveSheet.ShowAllData
End If
    While Workbooks("Synthese_type_01_modele.xls").Worksheets("Feuille principale").Cells(derniereligneupit, colonnerepere) <> "Veuillez ne pas supprimer ces lignes "
        derniereligneupit = derniereligneupit + 1
        If derniereligneupit > 1000 Then
            MsgBox ("Arrêt du traitement: boucle infinie")
                Exit Sub
            End If
        Wend
derniereligne = Range("IF565").SpecialCells(xlCellTypeLastCell).Row
For NumCol = 36 To 256
'Balaie chaque cellule de la ligne 20 pour chaque colonne'
'Test si = dans cellule, sinon rien '
If Left(Cells(20, NumCol).Formula, 1) = "=" Then
Range(Cells(20, NumCol), Cells(derniereligne, NumCol)).FillDown
End If
Next NumCol
 
End Sub

#