transfert vers onglet

[marleauc]

Bonsoir,

J'aimerais modifier le transfert de la liste vers les onglets respectif(alphbétique) mais en format liste au lieu dd'étiquette.

merci et bonne journée!

 

[Compte Supprimé 979]

Re : transfert vers onglet

Salut

J'aimerais modifier le transfert de la liste vers les onglets respectif(alphbétique) mais en format liste au lieu dd'étiquette.

Oui c'est très bien ...

1) Le fichier est tel quel sans préparation
2) Tu n'as même pas daigner commencer à faire un bout de code

Tu ne veux pas non plus un mars et 50 € 😉
Lien supprimé on ne fait pas du tout cuit

Tu peux uiliser l'enregistreur de macro pour obtenir ce que tu souhaites
Menu -> Outils -> Macro -> Nouvelle macro

A+

 

[marleauc]

Re : transfert vers onglet

merci Bruno M45

J'ai déja presqie tout le code: je sais que a l'extration, mais je ne connait pas vraiment le vba. je sais que c'est le offset qui redirigera l'info vers le lieux que je veux.
Sub GenCard_QuandClic()
Dim pNom, pPre, pAdr1, pAdr2, pCP, pVille, pTel1, pTel2, pRem
Dim zn As Range
Dim sel As Range
Dim N As Integer
Dim rep
rep = MsgBox("Confirmez-vous l'effacement du contenu actuel des pages ?", vbYesNo + vbQuestion + vbDefaultButton1, "Génération ABCD")
If rep = vbYes Then
ResetAll
[DeBNOM].Select
Selection.CurrentRegion.Select
For Each zn In Selection
Sheets("tmp").Activate
If zn.Column = 1 And zn.Row <> 4 Then
[tmpNom] = zn.Value
[tmpPRE] = zn.Offset(0, 1).Value
[tmpAdr1] = zn.Offset(0, 2).Value
[tmpAdr2] = zn.Offset(0, 3).Value
[tmpCPVIL] = zn.Offset(0, 4).Value & " " & zn.Offset(0, 5).Value
[tmpTEL1] = zn.Offset(0, 6).Value
[tmpTEL2] = zn.Offset(0, 7).Value
[tmpREM] = zn.Offset(0, 8).Value
N = GetPos([Lettrine].Value)
Sheets("Tmp").Activate
Range("B2:G6").Select
Selection.Copy
Sheets([Lettrine].Value).Activate
Range("POS" & N).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next
End If
Sheets("Liste").Activate
Range("A1").Select
End Sub

 

[Compte Supprimé 979]

Re : transfert vers onglet

Re,

je sais que c'est le offset qui redirigera l'info vers le lieux que je veux.

Ah bon et comment peux tu t'avancer de la sorte 😕🙄
puisque

je ne connait pas vraiment le vba.

Ton code inscrit les valeurs de ta feuille "Liste" dans une feuille masquée "Tmp"
Ensuite la fiche de la feuille "Tmp" est copiée/collée dans une des feuilles alphabétiques

Donc rien à voir avec "Offset"

Il suffit simplement que tu changes la mise en forme de tes feuilles "Tmp" et de "A" à "Z" et logiquement cela devrait suivre

Mais bon ce que j'en dis .... je ne suis peux être pas bon 😉😛

 

[marleauc]

Re : transfert vers onglet

ok bruno merci , mais que t'ais-je fais au juste, pour que tu me répondre ainsi, tu vois bien au moins que j'essaye de comprendre tout simplement.

merci!

 

[Compte Supprimé 979]

Re : transfert vers onglet

Re,

Rien du tout, t'inquiète je suis de mauvais poil ... et je n'aime pas que l'on dépose un fichier comme ça, sans avoir fait un minimum dessus 😛

Je pense que malheureusement tu es comme beaucoup ...

Tu récupère des fichiers à droite et à gauche et tu essayes de t'en servir
Si ça ne va pas tu viens voir le forum ...

Mais ce n'est pas comme ça que tu pourras avancer en VBA

On ne le dis jamais assez, il faut BOUQUINER ...

Voilà, c'est tout 😉