A voir également:
- Erreur 400 excel
- Erreur 0x80070643 - Guide
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
4 réponses
nicodoudou
Messages postés
48
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
44
7 déc. 2007 à 23:37
7 déc. 2007 à 23:37
En fait passe plutot par des variable Excel
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i=2
while(not(ragne("a" & i)=""))
i=i+1
wend
Range("A" &i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.ClearContents
Range("B3").Select
'Retourner dans le formulaire
Sheets("FORMULAIRE").Select
Range("B3").Select
end sub
Essaie avec cela c plus simple te beaucoup plus puissant
A+
Nico
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i=2
while(not(ragne("a" & i)=""))
i=i+1
wend
Range("A" &i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.ClearContents
Range("B3").Select
'Retourner dans le formulaire
Sheets("FORMULAIRE").Select
Range("B3").Select
end sub
Essaie avec cela c plus simple te beaucoup plus puissant
A+
Nico
nicodoudou
Messages postés
48
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
44
10 déc. 2007 à 11:39
10 déc. 2007 à 11:39
Petite erreur de synthaxe peut etre
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i=2
while(not(range("a" & i)=""))
i=i+1
wend
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.ClearContents
Range("B3").Select
'Retourner dans le formulaire
Sheets("FORMULAIRE").Select
Range("B3").Select
end sub
Si cela ne marche pas envoie moi ton fichier sur mon email nicolas_doulin@yahoo.fr
A+
Nico
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i=2
while(not(range("a" & i)=""))
i=i+1
wend
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("FORMULAIRE").Select
Range("B3:B13").Select
Selection.ClearContents
Range("B3").Select
'Retourner dans le formulaire
Sheets("FORMULAIRE").Select
Range("B3").Select
end sub
Si cela ne marche pas envoie moi ton fichier sur mon email nicolas_doulin@yahoo.fr
A+
Nico
nicodoudou
Messages postés
48
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
44
11 déc. 2007 à 17:42
11 déc. 2007 à 17:42
Penses à cloturer ton post
Je sais qu'il est cloturer
Je sais qu'il est cloturer
Bonjour je ne pense pas que ce post soit cloturé.
J'ai eu le même soucis, j'ai longtemps cherché une solution et j'ai finalement résolu le problème !
Ma macro était écrite dans la page "FORMULAIRE", je l'ai déplacée dans la page principale VBA "ThisWorkBook" et la macro fonctionne parfaitement !
En espérant avoir pu aidé d'autres bloqués !
J'ai eu le même soucis, j'ai longtemps cherché une solution et j'ai finalement résolu le problème !
Ma macro était écrite dans la page "FORMULAIRE", je l'ai déplacée dans la page principale VBA "ThisWorkBook" et la macro fonctionne parfaitement !
En espérant avoir pu aidé d'autres bloqués !
Bonjour,
J'ai copié mon code dans ThisWordBook est la macro produit toujours une erreur 400.
Mon code et le suivant :
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("C5:C10").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i = 2
While (Not (Range("a" & i) = ""))
i = i + 1
Wend
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("C5:C10").Select
Selection.ClearContents
Range("C5").Select
'Retourner dans le formulaire
Sheets("Formulaire").Select
Range("C5").Select
End Sub
Cependant dans mon formulaire de saisie (feuille 2), j'aimerais que la cellule C5 soit transposée dans ma base de données (feuille 1) à chaque validation mais sans que celle-ci soit rendu vierge à chaque validation.
Merci d'avance à la personne qui pourra me filer un coup de main dans cette affaire.
J'ai copié mon code dans ThisWordBook est la macro produit toujours une erreur 400.
Mon code et le suivant :
Sub transpose_dans_tableau()
'Atteindre le formulaire et mémoriser les données
Sheets("Formulaire").Select
Range("C5:C10").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
i = 2
While (Not (Range("a" & i) = ""))
i = i + 1
Wend
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, skipblanks:=False, Transpose:=True
'Rendre vierge le formulaire
Sheets("Formulaire").Select
Range("C5:C10").Select
Selection.ClearContents
Range("C5").Select
'Retourner dans le formulaire
Sheets("Formulaire").Select
Range("C5").Select
End Sub
Cependant dans mon formulaire de saisie (feuille 2), j'aimerais que la cellule C5 soit transposée dans ma base de données (feuille 1) à chaque validation mais sans que celle-ci soit rendu vierge à chaque validation.
Merci d'avance à la personne qui pourra me filer un coup de main dans cette affaire.
Bonjour à tous,
Je reviens sur le forum ou j'ai pompé tout ces bon conseille, car j'ai un probléme a souméttre.
J'aimerai dans le code çi dessus pouvoir choisir directement dans le formulaire la feuille excel qui seras compléter par les données inscrit dans le formulaire.
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
En effet je m'occupe d'une asso sportive et j'aimerais completer la base en fonction de la saison en cours, sans a chaque fois modifier le code.
Je pensé juste creer un choix de liste qui reprend le meme nom que mais feuille et l'intégrer au formulaire. Ce qui me mamque c'est la façon de modifier le code pour changer la base de destination en fonction de la variable du formulaire.
Merçi énormement pour l'aide déjas présente.
Volevo
Je reviens sur le forum ou j'ai pompé tout ces bon conseille, car j'ai un probléme a souméttre.
J'aimerai dans le code çi dessus pouvoir choisir directement dans le formulaire la feuille excel qui seras compléter par les données inscrit dans le formulaire.
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Base de données").Select
En effet je m'occupe d'une asso sportive et j'aimerais completer la base en fonction de la saison en cours, sans a chaque fois modifier le code.
Je pensé juste creer un choix de liste qui reprend le meme nom que mais feuille et l'intégrer au formulaire. Ce qui me mamque c'est la façon de modifier le code pour changer la base de destination en fonction de la variable du formulaire.
Merçi énormement pour l'aide déjas présente.
Volevo
10 déc. 2007 à 10:38
Merci d'avoir pris le temps de me répondre...
J'ai fait un copier coller de ta macro mais je me retrouve encore avec l'erreur 400.
Tu penses que j'ai un pb de compatibilité des formats de cellules?
Merci d'avance!
nb59