Discussion :

[melodyyy]

je cherche à tirer les formules par le VBA...
J'ai un probleme il me dit que la méthode de l'objet range global a échoué...
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
26
27
28
'Déclaration des variables
Dim premiereligne, derniereligne, plage
premiereligne = 20
derniereligne = 565
 
'Recherche de fin de fichier
compteurligne = premiereligne + 1
plage1 = ("20;565") '(lignes)
plage2 = Range("31;79") '(colonnes)
 
    While ThisWorkbook.Worksheets("Feuille principale").Cells("premiereligne;derniereligne").Range("plage2") <> "Veuillez ne pas supprimer ces lignes"
    Wend
derniereligne = compteurligne
            If premiereligne = 0 Then
        premiereligne = premiereligne + 1
 
'Désactivation des filtres
If ThisWorkbooks.Worksheets("Feuille principale").FilterMode = True Then
ActiveSheet.ShowAllData
End If
 
'Destination des formules
 
Selection.AutoFill Destination:=Range("plage2;derniereligne"), Type:=xlFillDefault
 
End If
Calculate
End Sub

merci

[RLX]

Salut melodyyy,

Ben en fait comment dire, y a pas grand chose qui va dans ton code faudrait que tu revois un petit peu. Déjà mets des balises code c'est mieux

Qu'est ce que tu veut faire avec ça

Code :

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

1
2
 plage1 = ("20;565") '(lignes)
plage2 = Range("31;79") '(colonnes)

déjà il faut mettre deux point au lieu d'un ;

ensuite tu déclare un compteurligne mais tu l'utilise pas

Code :

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

 compteurligne = premiereligne + 1

Tu fais des boucles qui font rien

Code :

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

1
2
While ThisWorkbook.Worksheets("Feuille principale").Cells("premiereligne;derniereligne").Range("plage2") <> "Veuillez ne pas supprimer ces lignes"
    Wend

en supposant que ça fonctionne ça tourne en boucle infinie!!

et je fais pas le détaille de tout.....

Détail un peu plus ta logique de ce que doit faire ton prog

[melodyyy]

en fait, si il y'a un 0 dans la cellule il doit tirer la formules de cette celulle jusqu'en bas sachant que le fichier est très très gros et très très grand

[RLX]

Donc on avance un petit peu ce que tu veux faire c'est parcourir toutes les cellules de la plage de cellule et si le résultat de la formule dans cette cellule est 0 c'est prendre la formule. Mais tu veux la mettre où cette formule?

[melodyyy]

presque
si dans la cellule 20 (premiereligne) j'ai un 0, alors il prend la formule qui est dans cette cellule etil la tire jusqu'a à la fin du fichier

[ced600]

Est ce que tu comprends ce qu'est une boucle, une variable ?
Est ce que tu as compris ce que fait la fonction Range ?

[marsupilami34]

Bonjour,

Moi, je me servirai dans un premier temps de l'éditeur de macro pour coir déja ce que donne le code

[ced600]

Je te conseille de regarder les tutoriaux sur VBA, et les concepts de la programmation, parce que la je pense que tu n'as même pas compris ce qu'était une boucle. Et si je me trompe alors dis moi ce que c'est.

[melodyyy]

oui voila mais ma 1ere macro à faire c'est celle la j'y peux rien...

Quand à la boucle, c'est une macro qui détermine que l'ont doit continuer à anvancer tant que ce qui est vrai n'est pas trouvé.
Il y'a plusieurs sorte de boucle, je te parle de la mienne, elle fonctionne comme ça.

Donc tant qu'elle pas trouvé le 0 dans la case, elle avance, continue. Si elle trouve alors elle étend la formule jusqu'en bas du fichier, d'ou la recherche de fin de fichier

[tazmania]

Salut,

Sur Excel, je ne crois pas qu'il y ai une fin de fichier (peut-être 999999)
Menfin je pense pas que tu veuilles aller jusque là.

Je n'ai pas compris cette phrase

Si elle trouve 'un 0' alors elle étend la formule jusqu'en bas du fichier

Si je comprends tu veux recopier la formule qui se trouve dans la cellule ou se trouve la value zéro sur cette même colonne mais sur les lignes du dessous jusqu'à arriver "à la fin du ficher excel"

Voici ce que je ferais

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
Sub recopie()
 
 
Dim i As Integer
Dim j As Integer
 
i = 1
 
Range("E" & i).Select
Do While (ActiveCell.Text <> 0 And i < 100)
    i = i + 1
    Range("E" & i).Select
Loop
 
If (i < 100) Then
    For j = i To 100
        Selection.AutoFill Destination:=Range("E" & j, "E" & (j + 1)), Type:=xlFillDefault
        Range("E" & j + 1).Select
    Next j
End If
 
End Sub

[melodyyy]

ça revient un peu au même que ce que je fais nan ?
moi je désactive les filtres aussi

[Itori]

Si je comprend bien ce que tu as essayé de faire :

Ton fichier excel comprend 565 lignes, et commence a la 20ème ligne
Tu as 48 colonnes : de 31 à 79

Ce que je comprend pas c'est ce que ta boucle est censé faire...
Ta cellule qui doit contenir 0, c'est laquelle ? la cellule de la ligne 20, colonne 31?
ou alors n'importe quelle cellule de la ligne 20 entre la colonne 31 et la 79 ?



Pour Tazmania : Un fichier excel comprend 65536 lignes...