Bonjour,
Nouveau défi a relever: (suite du sujet : http://forum.hardware.fr/hfr/Progr [...] #t1541935)
J'ai un fichier excel dans lequel se trouve environ 9000 lignes. Ce fichier contient la liste de tous les clients de nos 3 structures (Ventes, Technique et consommable), grâce à un tri je remets les uns en dessous des autres, les societes qui se trouvent reference dans nos trois structures.
Je cherche a rajouter une ligne vide entre mes clients mais (pour les grands chefs) il faut que celle-ci soit en couleur.
J'ai déjà la macro me permetant de rajouter une ligne vide mais sans couleur :
 
Sub Insertligne()
For AdrCel = 3 To 65536 Step 1
If Cells(AdrCel, 1).Value <> Cells(AdrCel, 1).Offset(-1, 0).Value Then
AdrLig = Cells(AdrCel, 1).Rows.Row
Rows(AdrLig).Insert Shift:=xlDown
AdrCel = AdrCel + 1
End If
If Cells(AdrCel, 1).Offset(1, 0).Value = "" Then
Exit For
End If
Next AdrCel
Application.ScreenUpdating = True
 
End Sub
 
Je pense que cela doit être tout simple mais je bute pour rajouter la couleur à la ligne.
 
Merci d'avance à l'aide que je recevrais.

LES MAJUSCULES C'EST CHIANT, ALORS CHANGE TOUT DE SUITE TON TITRE A LA CON.
 
ET LE SEUL DEFI QUE JE VOIS ICI, IL NE CONCERNE QUE TOI, NOUS ON S'EN FOUT UN PEU D'AVOIR TON TRUC QUI MARCHE OU NON.
 
ON SE PRENCHERA SUR TON PROBLEME QUAND T'AURAS VIRE TES CAPS ET MODIFIE TON TEXTE BOUDIDIOU
 
(t'ain en plus c'est relou d'écrire en caps, on peut pas mettre d'accents, faut faire shift pour faire des , et '... je comprends pas comment y'a des gens qui croient que c'est mieux...)

comment on peut avoir des gens aussi con sur un site pro comme celui ci
ici on est la pour s entraider par pour se faire insulter par un blaireau comme toi qui se la racconte a faire croire qu il connait tout

je t'ai pas insulté, mais si tu continues comme ça, on va pouvoir y aller.
 
les caps, comme on te l'a déjà fait remarqué dans l'autre topic, on n'aime pas ça, parceque justement, ici on n'est pas chez mémé, et l'entre-aide, ça commence par le respect d'autrui.
 
donc tu te plies au règlement du forum (cf la charte que tu as dû lire avant de poster ton premier topic, sinon c'est que tu sais pas lire) et tu nous vire de suite tes caps.
 
après ça et seulement après ça, on viendra te filer un coup de main.

Je cite :
 
 

prout ok

prout aussi alors

et alors
on peut etre gentil quand on parle
plutot que "chiant" "con" "on s en fout" "p'tain" "relou"
si tu as pas envi d aider tu te tais et tu passe le message
mais tu viens pas ecrire n importe quoi sur un forum
tu vois la on en est a 7 messages et y a rien eu de constructif
si tu veux jouer va jouer a WOW tu auras des gens de ton age pour parler ainsi

j'ai très envie de t'aider, mais pas tant que tu n'auras pas changé les titres de tes deux topics.
c'est agressif, tout le monde respecte cette règle, alors pourquoi pas toi ?
personne ne t'aurait fait la remarque encore, mais que je sâche, on t'as déjà fait remarquer le caractère dérangeant des majuscules.
 
ce topic restera aussi peu constructif tant que t'aura pas édité le titre. en tout cas, pour ma part

comme cela c'est mieux

ta gueule

je vois que C super interressant pour certain

Plutot java pour moi

....
Rows(AdrLig).Insert Shift:=xlDown  
'A ajouter :
rows(AdrLig).interior.colorindex=4  
'tu mets le chiffre que tu veux, correspondant à la couleur que tu veux
 
 
Les gars, si vous trouvez les majuscules aggressives, il faut envisager une thérapie.
Le langage insultant que vous employez vous est simplement honteux.

+1

super meme si ca depasse  
cela ne s arrete pas a la derniere colonne
mais pour moi cela me va
merci

alors
dim nbcol as integer
...
nbcol=cells(AdrLig,256).end(xltoleft).column
Rows(AdrLig).Insert Shift:=xlDown  
range(cells(AdrLig,1),cells(AdrLig,nbcol)).interior.colorindex=4  
...

euh ben comme tout a l heure merci enormement
mon etat est quasi fini en automatisant tout
merci bcp

C'est ici qu'on rigole?

My pleasure.

T'arrives trop tard... t'as tout manqué...

MAGICBUZZ tu n'es qu'un vilain Troll  
(cf http://www.uzine.net/article1032.html )
"Do not feed the troll" dit l'adage, mais là on en tient un beau !

bon, j'arrive après la guerre... mais j'arrive !

boulax & Magic >> merci d'éviter les réactions disproportionnées... ok il a écrit son titre en majuscules, c'est pas dans la charte, mais de là à le fusiller comme vous l'avez fait pour ça....