Discussion :

[Romain3006]

Bonjour à tous,

Cela faitt plusieurs jours que je parcours ce forum et d'autres pour trouver une solution à mon problème mais je n'arrive pas (malgré de nombreux essai) à adapter mon code avec ce que j'ai pu trouver jusqu'à présent...

Mon problème est simple :

Récupérer une colonne dans une feuille la coller dans une autre et appliquer les formules des colonnes adjacentes jusqu'à la fin de la colonne que l'on vient de coller. Un peu plus détaillé je copie la colonne C en valeur à partir de C4 jusqu'à Cx (x étant le nombre de ligne qui change à chaque fois). Ensuite je veux reproduire ce qui est fait avec la poignée de recopie pour les colonnes A:B et D:L.

Voici le code que j'ai fait mais qui ne fonctionne pas...

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub Analyse_Portefeuille()
 
Dim Extract As Worksheet
Dim Pick As Worksheet
Dim Cel As Range
Dim Colonne As Integer
Dim DerLigC As Range
 
 
Set Extract = Worksheets("Extract_Jump")
Set Pick = Worksheets("Top_Picks")
 
Extract.Select
Set Cel = Cells.Find(what:="Code ISIN", LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
    Cells(1, Cel.Column).Resize(Cells(Rows.Count, Cel.Column).End(xlDown).Row).Select
Else
    MsgBox "Pas trouvé le code ISIN "
    Exit Sub
  End If
Selection.Cut
Columns(1).Insert
 
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("Top_Picks").Activate
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
 
DerLigC = Worksheets("Top_Picks").Range("C4" & Rows.Count).End(xlUp).Row
'DerLig = Pick.Cell(Pick.Columns(3).Cells.Count, 3).End(xlUp).Row
 
'With DerLigC = Range("C" & Rows.Count).End(xlUp).Row
    'End With
 
Range("A4").Select
Selection.AutoFill Destination:=Range("A4:A" & DerLigC)
 
Range("D4:L4").Select
Selection.AutoFill Destination:=Range("E4:M" & DerLigC)
Range("E4:M" & DerLigC).Select
 
 
 
End Sub

Désolé je n'arrive pas à trouver comment mettre les balises...

En fait le problème survient à la ligne Selection.AutoFill Destination:=Range("A4:A" & DerLigC). Le seul problème est que je n'arrive pas à formaliser la référence de la dernière ligne non vide dans l'objet range pour la fonction autofill... J'ai laissé les commentaires que j'avais mit qui correspondent à d'autres essai infructueux également.

Merci de votre aide, n'hésitez pas à me dire s'il faut plus de précisions.

Romain

[Invité]

Bonjour Romain,

La variable DerLigC est déclarée comme Range. Déclare la variable comme long/integer puis DerLigC = Cells(Columns(3).Cells.Count, 3).End(xlUp).Row.

Bonne journée
Sophie

[Philippe Tulliez]

Bonjour,
La méthode AutoFill n'est pas la seule façon de recopier une formule. Il est plus simple et plus rapide d'appliquer la formule directement sur la plage de cellules.
Exemple simple

Code :

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

1
2
3
4
5
6
Sub t()
 Dim rng As Range
 Set rng = ThisWorkbook.Worksheets("Feuil3").Range("F2:F1000")
 rng.Formula = "=C2*D2+1"
 Set rng = Nothing
End Sub

A lire éventuellement ces deux billets Ecrire une formule dans Excel à l'aide d'une procédure VBA et Comment écrire une formule plus complexe dans une cellule ?

[Romain3006]

Bonjour Sophie, merci de ta réponse qui fonctionne. Ce n'est pas de chance car j'avais utilisé ta méthode mais surement que la déclaration de variable ou la syntaxe avait un petit problème.

Est-il possible de faire fonctionner autofill sur plus colonne en même temps plutôt que sur une seule. Car si j'écris :

Code :

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

1
2
Range("D4:L4").Select
Selection.AutoFill Destination:=Range("E4:L" & DerLigC)

Cela ne fonctionne pas.

Merci Philippe pour les infos, en effet cette solution est aussi viable mais j'utilise des formules bloomberg un peu compliqués parfois je préfère rester sur le classique autofill même si ce n'est pas toujours très propre...

Bien à vous,

Romain

[Invité]

De mémoire c'est possible. Je pense que l'erreur vient de la sélection de tes colonnes

Tu sélectionnes ("D4:L4") mais tu recopies sur ("E4:L" & DerLigC). On devrait plutôt avoir : Selection.AutoFill Destination:=Range("D4:L" & DerLigC).

Cordialement,
Sophie

[Romain3006]

Ok super, j’essayerai à l'occasion, en tout cas là ça marche colonne par colonne et ce n'est pas long donc pas de soucis.


Si je peux me permettre une dernière question... :

Dans mes colonnes B et L j'ai des recherchev sauf que quand je réorganise mes colonnes dans ma deuxième feuille cela change la plage de cellule des recherchev malgré le fait que je les fige.

Existe-il une méthode pour empêcher ce décalage ? Ou dois-je entrer la formule que je veux dans une variable directement dans mon code ?

Merci,

Romain.

[Romain3006]

Bon avec l'application d'une formule à la cellule correspondante cela marche sans soucis.

Cependant je suis curieux de savoir s'il est possible de passer outre cette méthode...

Romain

[dtaffin]

J'essaye de faire glisser des formules sur plusieurs onglets, je pensais que cette technique serait la plus probante mais il n'en est rien.

Pourriez vous m'indiquer une méthode qui puisse résoudre mon problème au vue du code que j'ai essayé de construire. A savoir que chaque onglet est construit de la même manière.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub
Dim Tableau As Variant
 
Tableau = Array("sheet1", "Sheet2", "Sheet3", "Sheet4")
 
Dim DernLigne As Long
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
With Tableau
Range("K8:R8").AutoFill Destination:=Range("K8:R" & DernLigne)
 
End With
End Sub