Problème avec ma macro excel

Bonjour,
Je suis entrain de creer une base de données avec excel. Pour cela j'ai prevu deux feuilles une pour la table et l'autre pour le formulaire. Pour inserer un enregistrement dans la table et renouveller le formulaire, jai eu cette macro mais il ya un probleme quand je l'execute mais je ne sais pas lequel. Voici la macro:

Code:

---

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

Sub transpose_dans_tableau() 'atteindre le formulaire et mémoriser les données Sheets("Formulaire").Select Range("B1 :B4").Select Selection.Copy 'Test pour déterminer la ligne où coller les infos dans le tableau Sheets("Base de données").Select valeurA2 = Range("A2").Value If valeurA2 = "" Then Range("A2").Value Else Range("A1").Select Selection.End(xlDown).Select ligne_active_base = ActiveCell.Row Range("A" & ligne_active_base + 1).Select End If 'Mémorise le No de la ligne où coller les données ligne_active_base = ActiveCell.Row 'Collage avec transposition Range("A" & ligne_active_base).Select Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=True 'Rendre vierge le formulaire Sheets("Formulaire").Select Range("B1:B4").Select Selection.ClearContents Range("B1").Select 'Retourner dans le tableau Sheets("Base de données").Select Range("A").Select End Sub

---

Quand je l'execute, il ya ce message : Erreur de compilation: Utilisation incorrecte de la propriété et il surligne la partie que j'ai mis en gras et souligné (.value)

Essaye de stocker la valeur dans une variable et d'utiliser ensuite cette variable

Code:

---

1 2	Dim NomVariable NomVariable = range("A2").Value

---

Oups pardon, j'avais pas vu que tu l'avais fait en haut désolé.

Après tu ne mets rien dans cette variable, faudrait peut etre mettre

Range("A2").Value = "valeur"

Bonjour,
essayes ce code tout simple et dis-moi

Code:

---

1 2 3 4 5 6 7 8 9

Sub transpose_dans_tableau() Dim Dl As Long   With Sheets("Base de données") Dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & Dl, "D" & Dl) = Application.Transpose(Sheets("Formulaire").Range("B1:B4")) Sheets("Formulaire").Range("B1:B4").ClearContents End With End Sub

---

Range("A2").Value ne veut rien dire...

Tu ne peux pas utiliser ça comme ça..

Code:

---

1 2 3 4

msgbox(Range("A2").Value) debug.print Range("A2").Value x=Range("A2").Value Range("A2").Value=x

---

Comme ça si

Ta macro est simple et ça fonctionne correctement. Grand MERCI.

Citation:

---

Envoyé par casefayere

Bonjour,
essayes ce code tout simple et dis-moi

Code:

---

1 2 3 4 5 6 7 8 9

Sub transpose_dans_tableau() Dim Dl As Long   With Sheets("Base de données") Dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1 .Range("A" & Dl, "D" & Dl) = Application.Transpose(Sheets("Formulaire").Range("B1:B4")) Sheets("Formulaire").Range("B1:B4").ClearContents End With End Sub

---

---