× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 problème de macro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
amidals
  Posté le 20/08/2010 @ 12:51 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

J'ai un fichier Excel comprenant une page "base de données" et une autre "Formulaire"

J'ai recopié une macro me permettant de transférer les données du formulaire vers la base de données en transposant de vertical à horizontal (je n'ai rien inventé, j'ai juste adapté à mon dossier)et quand je clic sur le bouton enregistrer, il revient dans la base de données et me dis "400"

Je ne sais pas ce que ça veux dire.

Voilà la macro

Sub transpose_dans_tableau()
Sheets("Formulaire").Select
Range("B1:B9").Select
Selection.Copy
Sheets("Base de données").Select
valeurA2 = Range("A2").Value
If valeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base + 1).Select
End If
ligne_active_base = ActiveCell.Row
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Formulaire").Select
Range("B1:B9").Select
Selection.ClearContents
Range("B1").Select
Sheets("Base de données").Select
Range("A1").Select
End Sub
Si quelqu'un a la gentillesse de me repondre je serai super contente

Publicité
galopin01
 Posté le 20/08/2010 à 13:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Voilà ce que c'est quand on traîne son nez n'importe ou !

Tu as attrapé la macro la plus pourrie du web et tu t'étonnes de chopper des maladies...

Depuis 2007 (et peut-être même avant) cette macro n'arrête pas d'alimenter les questions d'une douzaine de forums !

Une macro est une pièce d'horlogerie qui doit s'adapter exactement au cas de figure.

Or on ne sait rien de ton classeur, de ta version Excel...

Dans l'absolu, dans un classeur vide et sur un vieux coucou (façon Jurassic Windows...) cette macro fonctionne.

Après je ne peux pas te dire...

Peut-être en mettant ton classeur (débarrassé des éléments inutiles) sur cjoint ?

Préciser le nombre de lignes de chaques feuilles, la version Windows et Excel...

A+

amidals
 Posté le 20/08/2010 à 14:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

merci mais c'est vrai quand on débute dans la macro... on prends ce que l'on trouve et je l'ai trouvé un paquet de fois...

je te joins mon dossier en ayant supprimer la macro et tout et tout

http://cjoint.com/?iuoniwR7F1

Si tu peux me renseigner, merci d'avance

galopin01
 Posté le 20/08/2010 à 14:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Vu de chez moi avec mon Jurassic PC et Excel 2003 ça marche.

Donc on peut supposer que c'est un problème de version Excel ?

A+

galopin01
 Posté le 20/08/2010 à 14:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Sinon, tu peux peut-être essayer ça, ça me semble un peu moins "cacafouilloux"

Sub Transpose()
x = Sheets("Formulaire").Range("B1").End(xlDown).Row
With Sheets("Base de données")
.Select
k = Range("A1").End(xlDown).Row + 1
For i = 1 To x
.Cells(k, i) = Sheets("Formulaire").Cells(i, 2)
Sheets("Formulaire").Cells(i, 2).ClearContents
Next
.Range("A1").Select
End With
End Sub

A+

amidals
 Posté le 20/08/2010 à 15:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Effectivement cela marche mais chaque enregistrement ecrase leprécédent dans ma base de données : dommage

et en plus il me laisse des lignes vides, il me les mets en ligne 10

Merci

galopin01
 Posté le 20/08/2010 à 18:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Une macro est une pièce d'horlogerie qui doit s'adapter exactement au cas de figure...

Cette macro s'adapte exactement à ton classeur modèle...

... Et demande une certaine expérience pour être adaptée à d'autres situations !

A+



Modifié par galopin01 le 20/08/2010 18:05
amidals
 Posté le 23/08/2010 à 10:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Bonjour,

Je ne comprends pas car je l'ai utilisé sur le fichier que je t'ai envoyé et ça ne fonctionne pas

comment voir a quel endroit ça ne marche pas (c'est au niveau de la place de l'envoi des données)

merci de m'aider

galopin01
 Posté le 23/08/2010 à 11:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

ça ne marche pas : c'est pas une réponse.

Il se passe forcément quelque chose...

Qu'est-ce qui se passe et quel est le message d'erreur ? (Citation précise SVP)

Si le message propose un débogage accepter le débogage et dire quel est la ligne surlignée...

Pour ce genre de question technique, il est indispensable de donner ta config.

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
34,99 €Clé USB 3.1 SanDisk Extreme Pro 128 Go (420 Mo/s) à 34,99 €
Valable jusqu'au 22 Septembre

Amazon fait une promotion sur la clé USB 3.1 Sandisk Extreme Pro 128 Go qui passe à 34,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 55 €. Cette clé USB 3.1 (compatible usb 3.0) est extrèmement rapide puisqu'elle offre des débits jusqu'à 420 Mo/s en lecture et 380 Mo/s en écriture. Pratique, son connecteur rétractable vous évitera d'avoir à manipuler (et perdre ?) un bouchon.


> Voir l'offre
21,59 €Batterie CHOETECH 10 000 mAh (USB C PD, USB QC, induction Qi sans fil) à 21,59 €
Valable jusqu'au 22 Septembre

Amazon fait une promotion sur la batterie CHOETECH 10 000 mAh qui passe à 21,59 € grâce à un coupon de réduction à appliquer sur la page du produit. Ce chargeur de 10 000 mAh dispose d'un port USB C PowerDelivery 18W, d'un port USB QC 18W et permet également de récharger sans fil via induction un appareil compatible Qi (10W).


> Voir l'offre
21,50 €Balance connectée Xiaomi Mi Composition Scale 2 à 21,50 € livrée
Valable jusqu'au 20 Septembre

Amazon Espagne fait une promotion sur la nouvelle version de la balance connectée Xiaomi Mi Composition Scale 2 qui passe à 14,87 €. Comptez 6,63 € pour la livraison en France soit un total de 21,50 € livrée au lieu de 32,90 € ailleurs. Cette balance connectée vous permet de vous donner votre poids, masse graisseuse, masse osseuse, pourcentage d’eau, indice IMC, ... Elle est capable de reconnaître jusqu'à 16 personnes différentes. Vous pourrez récupérer vos informations et suivre l'évolution des différente analyses directement sur votre smartphone via le bluetooth.

Vous pouvez utiliser votre compte Amazon France sur Amazon Espagne et il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
problème macro
Probleme excel - tri dans macro Excel 2007
probleme macro excel 2010
Problème macro open office
probleme macro fermeture de fichier !!
Problème macro
probleme avec macro sur excel 2007
Problème macro
problème macro
petit problème formule ou macro
Plus de sujets relatifs à problème de macro
 > Tous les forums > Forum Bureautique