macro de test de celulles

[kenny2410]

Bonjour a tous,

Je continue dans mes problèmes de macro... et voila le suivant.

Je souhaiterais faire une macro qui puisse analyser chacune des cellules d'une colonne, et ainsi pouvoir mettre un titre a une partie de la colonne:

avant la macro:
arm01
arm02
arm03
arm04
buf01
buf02
buf03
tab01
tab02
tab03

j'aimerais qu'en haut de cette petite série, la macro puisse insérer une ligne et ajouter un titre ARMOIRE, sachant que dans ma série, il peut y avoir beaucoup d'autres nom dans la colonne.

après la macro:
ARMOIRE
arm01
arm02
arm03
arm04
BUFFET
buf01
buf02
buf03
TABLE
tab01
tab02
tab03


Je pense qu'avec une paire de "si" et une paires de "case" il y a moyen de le faire mais n'étant pas du tout développeur... je fais appel aux spécialistes...

MERCI de votre aide.

 

[skoobi]

Re : macro de test de celulles

Bonsoir,
veux-tu analyser toute la série ou uniquement le 1ere cellule,c'est à dire que dès que la cellule contient arm01, on insère 1 ligne armoire?

 

[Gorfael]

Re : macro de test de celulles

Bonjour a tous,

Je continue dans mes problèmes de macro... et voila le suivant.

Je souhaiterais faire une macro qui puisse analyser chacune des cellules d'une colonne, et ainsi pouvoir mettre un titre a une partie de la colonne:

avant la macro:
arm01
arm02
arm03
arm04
buf01
buf02
buf03
tab01
tab02
tab03

j'aimerais qu'en haut de cette petite série, la macro puisse insérer une ligne et ajouter un titre ARMOIRE, sachant que dans ma série, il peut y avoir beaucoup d'autres nom dans la colonne.

après la macro:
ARMOIRE
arm01
arm02
arm03
arm04
BUFFET
buf01
buf02
buf03
TABLE
tab01
tab02
tab03


Je pense qu'avec une paire de "si" et une paires de "case" il y a moyen de le faire mais n'étant pas du tout développeur... je fais appel aux spécialistes...

MERCI de votre aide.

Salut
Soit tu expliques mal ton problème, soit tu n'as rien compris au macro:
Range("A1").Insert shift:=xlShiftDown
Range("A1") = "ARMOIRE"

Mais ça sera plus complexe de définir un code pour le faire que de le faire manuellement

A+

 

[Staple1600]

Re : macro de test de celulles

Bonsoir


A tester

Sub Insertion_Lignes()
Application.ScreenUpdating = False
Dim r As Long
For r = [A65536].End(xlUp).Row To 2 Step -1
    If Left(Cells(r, 1), 3) <> Left(Cells(r - 1, 1), 3) Then
        Rows(r).Insert Shift:=xlDown
        Cells(r, 1) = UCase(Cells(r + 1, 1))
    End If
Next r
Application.ScreenUpdating = True
End Sub

Ca donne ceci sur mon poste (avec tes données exemples)
BUF01
buf01
buf10
TAB01
tab01
tab02

 

[Staple1600]

Re : macro de test de celulles

Re

Une petite dernière lichette de VBA avant dodo

Sub Insertion_Lignes_ET_Mise_EN_Forme()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim r As Long
For r = [A65536].End(xlUp).Row To 2 Step -1
    If Left(Cells(r, 1), 3) <> Left(Cells(r - 1, 1), 3) Then
        Rows(r).Insert Shift:=xlDown
        With Cells(r, 1)
        .Value = UCase(Cells(r + 1, 1))
        .Font.Bold = True
        .Font.ColorIndex = 3
        End With
    End If
Next r
Rows(1).Insert
With Cells(1, 1)
    .Value = UCase(Cells(2, 1))
    .Font.Bold = True
    .Font.ColorIndex = 3
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Bonne nuit à tous

 

[kenny2410]

Re : macro de test de celulles

Bonjour a tous...

Pour vous repondre:
SKOOBI
Je souhaite analyser toute la serie, et avant chaque changement des 3 premiere lettres (code) inserer une ligne et pouvoirmettre le titre...

Gorfael
Je ne pense pas que ca fonctionne car ca va inserer "armoire" a chaque ligne...
De plus le faire a la main prendrais un temps fou car j'ai plus de 1500 valeur dans un tableau et plus de 500 dans un autre...

Staple1600
Je teste cca de suite et je te tiens au courant...

MERCI a tous ce votre aide.
ce forum est vraiment un bon apport pour tout le monde!!
MERCI!!!!

 

[kenny2410]

Re : macro de test de celulles

Staple1600
Ta solution est une merveille... elle fonctionne presque comme je le souhaite, car a la place de remettre la premiere ligne de la serie, je souhaite mettre le nom complet de la serie...

MERCI beaucoup de ton aide.. je continue sur ta lancée.

MERCI🙂

 

[Luki]

Re : macro de test de celulles

Bonjour le fil, kenny, les autres

J'ai vu ce fil hier soir mais pas eu le temps de m'y attarder.

Kenny, visiblement tu as trouvé (ou presque ce que tu veux).

Toutefois, la question que je me pose en regardant ton fil est la suivante: veux-tu insérer ce titre pour préparer un tarif client en insérant des titres de chapitres(par ex le prix pour chaque référence etc...) ou auras tu besoin de consulter ces données, de les trier, de les filtrer, etc...

Si c'est le deuxième cas, je passerais plutôt par une colonne supplémentaire "famille" qui sera plus souple pour analyser ou consulter les données.(à côté de chaque ref, le nom de la famille: armoire pour arm01,buffet pour buf01 etc)

Voilà mon point de vue du matin 🙂

A te lire

 

[kenny2410]

Re : macro de test de celulles

Merci pour ton info Luki mais c'est juste pour avoir un titre pour ma colonne... c'est pour avoir une plus belle presentation...

Merci a tous.. pour votre aide.
Voici mon code pour le moment... mais n'etant pas developpeur et n'ayant jamais fait de VBA, j'ai encor un soucis.
Je souhaite mettre le titre sur la 2eme colonne (la B).. et non pas la premiere comme l'a très bien fait Staple1600. Pour cela j'ai modifié le code des cells(x,1) par cells (x,2). et ca fonctionne qu'a moitie voir pas du tout (ca ajoute une seule ligne en haut!!)...
car si il n'y a rien dans la premiere colonne (la A), ca ne fonctionnne pas. mais si en revanche je mets meme n'importe quoi dans la premiere colonne, ca fonctionne correctement.

je ne comprends plus rien!!!
MERCI de m'aider une derniere fois!! je suis desespere!

(je souhaite avoir le resultat du fichier joint mais sans avoir des 'bla' dans le premiere colonne)

 

[Luki]

Re : macro de test de celulles

re,

essaie cette correction :

For r = [[COLOR=Red][B]B[/B][/COLOR]65536].End(xlUp).Row To 2 Step -1

Car la macro de stapple cherche la dernière cellule non vide de la colonne "A"

A+

 

[kenny2410]

Re : macro de test de celulles

G E N I A L... tout simplement genial.. ca fonctionne... et dire que j'avais fait un test au debut en ne modifiant que ca.. pour voir ce que ca changeait... mais je n'avais rien modifie d'autre...

MERCI beaucoup... 🙂

Trop de bonheur...

voila on peut le dire une journee que je m*r*d* la dessus et vous arrivez et la sauvez la vie... MERCI!!

Merci a tout ceux qui ont pu m'aider...
merci beaucoup!!

 

[kenny2410]

Re : macro de test de celulles

RE,

Si je peux me permettre une derniere modification pour que ce code soit parfait...

le titre des series apparait comme un titre de 3 caracteres. Je souhaiterais maintenant pouvoir faire une correspondance entre ce titre de 3 caracteres avec une liste de noms complets:
buf -> buffet
tab->table

Dans un fichier normal (sanas macro) je sais le faire grace a la fonction =recherche(), mais dans une macro.. je ne voies pas comment faire...

est ce que quelqu'un peut m'aider..
MERCI!

 

[Luki]

Re : macro de test de celulles

re,

vois en Pj.

A+

 

[Staple1600]

Re : macro de test de celulles

Bonsoir à tous


-> Luki: (bonsoir 1)

Select Case ou Array() dans le cas présent?
(Je patine un peu ... 😉 dans les tableaux)


->kenny: (bonsoir 2)
Moi aussi j'aurais dans un premier temps opter pour un Select Case
comme Luki

 

[Luki]

Re : macro de test de celulles

Re,

salut Stapple,

S'il n'y a pas beaucoup de titres (une dizaine maxi), un select case suffira. S'il y en a beaucoup, il vaut mieux passer par une table dans une feuille cachée à mon avis. Plus facile à maintenir propre et à faire évoluer que dans le code.🙂

A+