Discussion :

[godwin30]

Bonjour,
j'ai un souci sur une macro.
Je m'explique :
J'ai deux feuilles :
-La première est un tableau basique ("Sous-traitants"), lorsque je lance la macro elle copie la ligne 10
et l'insère sur la dernière ligne ayant une valeur en "A"
je demande par input box deux valeurs à donner.

Jusque la pas de problème.

Ensuite j'ai une feuille masquée qui est copier par cette même macro.

Le problème arrive,
dans cette nouvelle feuille créée je voudrai par macro mettre des formules.
Par exemple dans la cellule E3 je veux que la formule soit :
='Sous-traitants'! L et numéro de la ligne créée.
et c'est justement la que je bloque,

Je joint mon fichier et ci dessous la macro :

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
48
49
50
51
52
Sub creation_ligne()
 
Dim Lot As String
 
Lot = InputBox("Nom du Lot :", "A renseigner", "")
If Lot = "" Then Exit Sub
 
 
Dim Lig As Long
Lig = 11 'première ligne à vérifier
Do While Not IsEmpty(Range("A" & Lig))
Lig = Lig + 1
Loop
 
Range("a" & Lig).Select
 
Range("a10:Av10").Select
Selection.Locked = False
Selection.FormulaHidden = False
Selection.Copy
 
Range("a" & Lig).Select
ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
 
Range("a" & Lig) = Lot
 
Dim NOMST As String
 
' demander le nom sous traitant
NOMST = InputBox("NOM DU SOUS TRAITANT :", "A renseigner", "")
If NOMST = "" Then Exit Sub
 
Range("b" & Lig) = NOMST
 
' copier coller de l'onglet modèle et positionné a la fin du classeur puis renommé avec le nom sous traitant
Sheets("Modèle").Visible = True
Sheets("Modèle").Select
Sheets("Modèle").Copy After:=Worksheets(Worksheets.Count)
Sheets("Modèle (2)").Select
Sheets("Modèle (2)").Name = "DGD" & " " & NOMST
Sheets("Modèle").Visible = False
 
Sheets("DGD" & " " & NOMST).Select
Range("e9").Value = NOMST
 
End Sub

Code :

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

'range("e3").FormulaR1C1 = "='Sous-traitants'!R[8]C[6]"

Cette dernière ligne est en gros ce que je voudrais mais il faut que ce soit liée à ma variable de numéro de ligne

Si quelqu'un a une idée

Merci
tableau de suivi des sous-traitants - Copie.xlsm

[parmi]

Bonjour,

Je n'ouvre pas de fichier joint, comme la plupart...
Ici, tu peux changer la ligne 8 de ta formule par une variable

Code :

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

range("e3").FormulaR1C1 = "='Sous-traitants'!R[" & lig & "]C[6]"

[godwin30]

Bonjour,
merci pour l'info mais cela ne donne pas la bonne réponse.
j'obtiens la cellule K14 or je cherchez à trouver la cellule F lig soit dans mon exemple f11

[parmi]

Je suis rendu chez moi et j'ai ouvert ton fichier.
Où veux-tu mettre ta formule (Feuille et cellule)
Et que veux-tu inscrire dans ta formule (Feuille et cellule) ?
Est-ce que la ligne est variable ?

[Philippe Tulliez]

Bonjour,

Le problème arrive, dans cette nouvelle feuille créée je voudrai par macro mettre des formules.
Par exemple dans la cellule E3 je veux que la formule soit :
='Sous-traitants'! L et numéro de la ligne créée.
et c'est justement la que je bloque,

La lecture de ces deux billets pourra peut-être t'aider à résoudre ton problème Ecrire une formule dans Excel à l'aide d'une procédure VBA et Comment écrire des formules plus complexes et rendre dynamique les références aux plages de cellules ?

[godwin30]

Je suis rendu chez moi et j'ai ouvert ton fichier.
Où veux-tu mettre ta formule (Feuille et cellule)
Et que veux-tu inscrire dans ta formule (Feuille et cellule) ?
Est-ce que la ligne est variable ?

Bonjour,
je veux mettre ma cellule dans la nouvelle feuille créée qui est une copie de la feuille modèle.
Dans cette nouvelle feuille en E3 je veux que ça m'inscrive la valeur de la feuille "soustraitants" la colonne L et la ligne qui vient d'être créée.
En inscrivant cette formule :

Code :

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

Range("e3").Formula = "='Sous-traitants'!R[" & Lig - 3 & "]C[7]"

Ça marche

Or je ne comprend pas pourquoi?
R c'est bien la ligne et C la colonne?
Donc normalement je devrai avoir cette formule :

Code :

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

Range("e3").Formula = "='Sous-traitants'!R[" & Lig & "]C[11]"

[parmi]

Probablement parce que tu mélanges Formula et FormulaR1C1
Essaie ceci

Code :

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

Range("E3").Formula  = "='Sous-traitants'!L" & Lig