MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Staple1600

XLDnaute Barbatruc

• 20 Septembre 2007

• #2

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Bonjour



Même problème qu'ici non?

https://www.excel-downloads.com/threads/que-ferait-les-pros-excel.81715/

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #3

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Oui, c'est encore bien moi...
Je ne cesse de réfléchir et c'est ce que j'ai trouvé de mieux (enfin si on peut dire).
Qu'en pensez-vous ???

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Septembre 2007

• #4

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Re


Comme le dit si bien Tibo

Euh ..., ça risque de ne pas être évident du tout.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Septembre 2007

• #5

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Néanmoins

Pour cela voila une macro

1/écrire en gras chaque cellule qui commence par A(il me suffira de changer la lettre si nécessaire)

Cliquez pour agrandir...

Code:

Sub gras()
For Each cell In Range(Cells(1, "A"), Cells(65536, "A").End(xlUp))
If Left(cell, 1) = "A" Then
cell.Font.Bold = True
End If
Next
End Sub

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #6

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Merci beaucoup, c'est déjà formidable !
Vous pensez qu'il est impossible de transposer les données tél, fax, en faisant une boucle à partir de chaque nvelle cellule en caractère gras ?
J'ai envie d'y croire... car le contraire serait redoutable !!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Septembre 2007

• #7

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Ensuite ca devient difficile avec cette méthode

Code:

Sub gras_transpose()
Application.ScreenUpdating = False
For Each cell In Range(Cells(1, "A"), Cells(65536, "A").End(xlUp))
If Left(cell, 1) = "A" Then
cell.Font.Bold = True
End If
Next

For Each cell In Range(Cells(1, "A"), Cells(65536, "A").End(xlUp))
If cell.Font.Bold And cell.Offset(3, 0) Like "France" Then
Range(cell.Offset(1, 0), cell.Offset(3, 0)).Copy
cell.Offset(0, 1).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
        End If
Next

For Each cell In Range(Cells(1, "A"), Cells(65536, "A").End(xlUp))
If cell.Font.Bold And cell.Offset(5, 0) Like "Fax*" Then
Range(cell.Offset(1, 0), cell.Offset(5, 0)).Copy
cell.Offset(0, 1).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True
        End If
Next
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #8

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Tout simplement magique !
Barbatruc !!!!

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #9

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

J'ai testé votre dernière formule, c'est proche du rêve...
Mais je ne comprends pas pourquoi çà ne fonctionne pas sur toute les données ?
Pensez-vous qu'il vaut mieux que je repense mon "raisonnement" ?
Est-il plus simple de faire une macro pour chaque transposition (ex: transpose ville, transpose téléphone, transpose fax etc...) ?
Merci pour vos suggestions éclairées.

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #10

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Je vous remercie beaucoup pour votre solidarité et votre aide si précieuse!!!!
Encore une "petite" prise de tête.... comment supprimer les données entre chaque raison sociale après avoir transposé ?
Un énorme MERCI et bon appétit !

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 20 Septembre 2007

• #11

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Tout simplement le bonheur,
Encore mille mercis
Je vous souhaite une très Bonne soirée !
PS : je testerai demain avec d'autres fichiers en remplaçant la lettre "A"

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Septembre 2007

• #12

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Bonsoir


Une version plus aboutie (nécéssitant une préparation du fichier
préalable)

ex: si le fichier a cette structure (données en colonnes- ici colonne A)
NOM
ADRESSE
CP_VILLE
TEL
FAX
EMAIL
SITE WEB

A l'éxécution de la macro, la valeur de n doit prendre 7

(Mais il faut que toutes les données de la colonne respectent cette
structure, sinon gare au souk 😉)

Code:

Sub Transpose_Vero()
Dim rng As Range
Dim I As Long
Dim nb_lig As Integer
nb_lig = _
InputBox(Chr(13) & "Changement tous les n lignes" & Chr(13) _
& "Quelle est la valeur de n, svp ?")
Application.ScreenUpdating = False
Set rng = Range("A1")
While rng.Value <> ""
    I = I + 1
    rng.Resize(nb_lig).Copy
    Range("B" & I).PasteSpecial Transpose:=True
    Set rng = rng.Offset(nb_lig)
Wend
Range("B1").EntireColumn.Resize(, nb_lig).AutoFit
Application.CutCopyMode = False
Application.ScreenUpdating = True

Si le fichier avait cette structure
NOM
ADRESSE
CP_VILLE
TEL
alors n=4


Bonne fin de week end à tous


J-M

 

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 25 Septembre 2007

• #13

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Bonjour Bonjour,

Je viens de découvrir la nouvelle formule !!! C'est épatant, la seule gène c'est qu'il est extrêmement fastidieux de "formaliser" toutes les données au même format.
Je vais quand même essayer en mettant en gras les noms de société (celà me fera un repère visuel) & je vous tiens informé...
Quand à la formule précédente, j'essaie de changer "A" en "B" : et bien devinez quoi ? çà ne fonctionne plus !
J'enrage...
Une p'tite astuce svp Mr Staple 1600 alias Barbatruc

 

Pièces jointes

• modèleB.xls

  32 KB · Affichages: 33

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Septembre 2007

• #14

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Bonjour



C'est normal


Explications:

Application.ScreenUpdating = False
For Each cell In Range(Cells(1, "B"), Cells(65536, "B").End(xlUp))
If Left(cell, 1) = "B" And Not cell Like "Bvd*" Then
cell.Font.Bold = True
End If
Next

Cliquez pour agrandir...

For Each cell In Range(Cells(1, "B"), Cells(65536, "B").End(xlUp))

Cliquez pour agrandir...

Cette ligne fait référence à la colonne B, or les données sont en colonne A

Le seul changement a faire était celui la:

If Left(cell, 1) = "B" And Not cell Like "Bvd*" Then

Cliquez pour agrandir...

C'est juste ici qu'il faut le A en B

Donc il faut remplacer le B par le A dans le reste du code

 

Dernière édition: 25 Septembre 2007

Vote positif 0 Vote négatif

P

p'tite véro

Guest

• 25 Septembre 2007

• #15

Re : MACRO POSSIBLE OU PAS POSSIBLE ?!Merci

Je n'y connais pas grand chose... pour ne pas dire rien, mais je fais de gros efforts...
Encore merci de votre sympathie.
Je m'empresse d'essayer votre dernière formulation (par nombre de ligne)...

 

Vote positif 0 Vote négatif