Discussion :

[Tidrah51]

Bonjour à vous tous et merci par avance.

Voici le problème que j'ai :

Mon fichier possède 2 onglets : un nommé "Vierge D.F" et l'autre "Gestionnaire Factures".

Sur l'onglet "Vierge D.F" dois récupérer une information texte sous la forme " TS 2020 20 12" en cellule "L5" (cette information est une variable).

Il faut ensuite aller dans l'onglet "Gestionnaire Factures" Aller à la dernière cellule vide d'un tableau (Tableau 3) qui commence en A24 pour écrire cette formule :

='TS 2020 20 12'!B$16

En sachant que la valeur entre ' ' doit être celle récupéré dans l'onglet "Vierge D.F"

Et enfin étirer la formule de la case on l'on vient d'entrer la valeur jusqu'a la colonne I (i).

Voici le code que j'ai pour l'instant :

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
Sub FREDO()
 
Range("L5").Select
Selection.Copy
Sheets("Gestionnaire Factures").Select
Cells(Rows.Count, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = False
ActiveCell.FormulaLocal = "='TS 2020 12 0002'!B$16"
Selection.AutoFill Destination:=Range("A27:I27"), Type:=xlFillDefault
Range("A27:I27").Select
End Sub

Mes soucis avec ce code

Ce n'est pas une variable il prend toujours la valeur TS 2020 12 002

Lorsque l'étire la formule ça ne se fais que dans le ligne 27

Merci à vous les pros d'excel et de VBA

Amicalement Pierre

[joe.levrai]

Bonjour,

voici pour insérer la formule

Code :

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

1
2
3
4
5
Sub toto()
    With ThisWorkbook.Worksheets("Gestionnaire Factures")
        .Cells(.Rows.Count, 1).End(xlUp)(2).Formula = "='" & ThisWorkbook.Worksheets("Vierge D.F").Cells(5, 12).Value & "'!B$16"
    End With
End Sub

concernant Autofill, il est normal que seule la ligne 27 soit traitée, c'est ce que tu demandes ici :

Code :

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

Selection.AutoFill Destination:=Range("A27:I27"), Type:=xlFillDefault

Ne sachant pas quelle plage exacte tu souhaites autofiller, je te laisse modifier en conséquence

[Tidrah51]

Un grand merci JOE !
ça fonctionne super, une dernière question et je passe la discussion en Résolu.

Maintenant que j'ai bien ma valeur dans la cellule suivante dans l'onglet "gestionnaire factures", je voudrais étendre la formule de cette cellule jusqu'a la colonne I(i).
(mon soucis avec Autofill est dans le fait que je suis obligé de lui donner des coordonnées de cellules).

[joe.levrai]

il te suffit de sortir la ligne finale de ta chaine de caractère définissant le range, et de lui ajouter la variable i à la place

Code :

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

Selection.AutoFill Destination:=Range("A27:I" & i), Type:=xlFillDefault

[Tidrah51]

Alors non pas exactement

la valeur que l'on vient de coller dans l'onglet 'gestionnaire factures" dans ce cas ci en A27 doit être étendu jusqu'a la colonne I

Mais le soucis c'est que ce n'est pas toujours en A27 dès lors que je vais lancer le bout de code on va coller la valeur à la cellule suivante vide c'est à dire A28


Il faut donc que la valeur que l'on vient de coller (qu'importe son numéro de ligne) doit etre étirée jusqu'a la colonne I

[joe.levrai]

On peut réutiliser la cellule calculée, en récupérer son adresse (et celle de la colonne I) pour reconstituer le Range

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
    With ThisWorkbook.Worksheets("Gestionnaire Factures")
        With .Cells(.Rows.Count, 1).End(xlUp)(2)
            .Formula = "='" & ThisWorkbook.Worksheets("Vierge D.F").Cells(5, 12).Value & "'!B$16"
            .AutoFill Destination:=ThisWorkbook.Worksheets("Gestionnaire Factures").Range(.Address, .Offset(0, 9).Address), Type:=xlFillDefault
        End With
    End With
End Sub

Attention, je n'ai pas essayé, regarde si c'est ok