Lignes... Colonnes... Zat is la question ?!

Jocelyn

XLDnaute Barbatruc

• 28 Septembre 2006

• #2

Re : Lignes... Colonnes... Zat is la question ?!

Bonjour le Forum,
Bonjour Sil20,

je ne sais pas du tout si je pourrais t'aider mais il faudrait un petit fichier exemple pour voir comment sont tes données

Jocelyn

 

Vote positif 0 Vote négatif

S

Sil20

XLDnaute Nouveau

• 28 Septembre 2006

• #3

Re : Lignes... Colonnes... Zat is la question ?!

Merci de la précision 😀

c'est le premier message !

Voici le fichier en question

 

Pièces jointes

• ClubMotoTEST.xls

  24.5 KB · Affichages: 91

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 28 Septembre 2006

• #4

Re : Lignes... Colonnes... Zat is la question ?!

re,

un essai en piece jointe il n'necessite linsertion d'une nouvelle colonne B j'ai crée une feuille récap sur laquelle est ta demande.

regardes et dis nous

Jocelyn

 

Pièces jointes

• sil20.zip

  15 KB · Affichages: 27
• sil20.zip

  15 KB · Affichages: 31
• sil20.zip

  15 KB · Affichages: 25

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 28 Septembre 2006

• #5

Re : Lignes... Colonnes... Zat is la question ?!

Bonjour

Bon jocelyne a été plus rapide (il doit manger plus vite 🙄)

Bon je l'ai fait en vba

 

Pièces jointes

• sil20.zip

  14 KB · Affichages: 27
• sil20.zip

  14 KB · Affichages: 30
• sil20.zip

  14 KB · Affichages: 25

Vote positif 0 Vote négatif

S

Sil20

XLDnaute Nouveau

• 28 Septembre 2006

• #6

Re : Lignes... Colonnes... Zat is la question ?!

ca à l'air de bien marcher sur l'expemple... merci

maintenant quand je rajoute le reste de ma liste en ayant pris soin de recopier vers le bas ta formule de la colonne C et que je clique sur ton bouton magique voici le message :

erreur d'execution 91

variable objetou variable bloc With non définie

Sub transfert()
Dim x As Integer, maligne As Integer
Dim MonTexte As String
Dim MaColonne As Byte

maligne = 2
For x = 1 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
If Sheets("Feuil1").Range("C" & x) = "" Then
maligne = maligne + 1
Else
MonTexte = Sheets("Feuil1").Range("C" & x)
MaColonne = Sheets("Feuil2").Range("A1:G1").Find(MonTexte).Column
Sheets("Feuil2").Cells(maligne, MaColonne) = Sheets("Feuil1").Range("B" & x)
End If
Next
End Sub

la ligne en gras est surlignée 😕

Kes ki se passe 😱

Merci encore vous êtes des champions !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 28 Septembre 2006

• #7

Re : Lignes... Colonnes... Zat is la question ?!

Re

Dans ta suite de données tu dois avoir un titre que je n'ai pas créé

Je modifies pour ce cas

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 28 Septembre 2006

• #8

Re : Lignes... Colonnes... Zat is la question ?!

Re

Le fichier modifié qui créera das colonnes si des titres manquent

 

Pièces jointes

• sil20.zip

  14.2 KB · Affichages: 32
• sil20.zip

  14.2 KB · Affichages: 33
• sil20.zip

  14.2 KB · Affichages: 26

Vote positif 0 Vote négatif

S

Sil20

XLDnaute Nouveau

• 28 Septembre 2006

• #9

Re : Lignes... Colonnes... Zat is la question ?!

Merci c'est au TOP !!!!!! 😉

Combien je vous dois Docteur...?

Mille mercis 😀

 

Vote positif 0 Vote négatif