Discussion :

[apdf1]

Bonjour,

Voila j'ai récuperé se code qui copy sans doublon sur une autre feuille pris sur internet et qui marche trés bien mais je voudrais lui apporté une petite modif.
J'aimerais que la ligne1, sois de couleur bleu mais seul la ligne1
Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub Annuaire()
ligneSource = 2         ' ligne de départ
largeurSource = 7       ' largeur source (nb colonnes)
hpageDest = 150        ' hauteur page edition
ncolDest = 1            ' nb colonnes edition
ligneDest = 2           ' ligne de départ
'-------------------------------- création temp
Application.DisplayAlerts = False
On Error Resume Next
Sheets("temp").Delete
On Error GoTo 0
Sheets("BD").Copy after:=Sheets("BD")
ActiveSheet.Name = "temp"
Cells(ligneSource, 1).Select
Do While ActiveCell <> ""
  Lettre = Left(ActiveCell, 1)
  ActiveCell.EntireRow.Insert
  ActiveCell = Lettre
  ActiveCell.Font.Bold = True
  ActiveCell.Font.ColorIndex = 3
  Do While Left(ActiveCell, 1) = Lettre
    ActiveCell = ActiveCell & String(58, ".")
    ActiveCell.Offset(1, 0).Select
  Loop
Loop
'--------------------------------- création Edition
 
Sheets("editionAnnuaire").ResetAllPageBreaks
Sheets("editionAnnuaire").Cells.ClearContents
 
For col = 1 To ncolDest    ' en tête de colonnes
    Sheets("temp").Cells(ligneSource - 1, 1).Resize(1, largeurSource).Copy _
       Sheets("editionAnnuaire").Cells(1, (col - 1) * (largeurSource + 1) + 1)
Next col
'-
Do While Sheets("temp").Cells(ligneSource, 1) <> ""
  For col = 1 To ncolDest
    Cells(ligneSource, 1).Resize(hpageDest, largeurSource).Copy _
       Sheets("editionAnnuaire").Cells(ligneDest, (col - 1) * (largeurSource + 1) + 1)
    ligneSource = ligneSource + hpageDest
  Next
  Sheets("editionAnnuaire").HPageBreaks.Add Before:=Cells(ligneDest + hpageDest, 1)
  ligneDest = ligneDest + hpageDest
Loop
Sheets("editionAnnuaire").Select
Sheets("editionAnnuaire").Cells.Font.Size = 9
 
'ActiveSheet.PrintPreview
End Sub

J'ai beau chercher, je n'ai rien trouvé.
Avez-vous une solution?

Merci d'avance.

Max

[jfontaine]

Bonjour,

Le code ci dessous met le fond de la ligne 1 en bleu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows("1:1").ColorIndex = 5

Penses a utiliser l'enregistreur de macro

[apdf1]

Bonjour jfontaine

Je te remercie beaucoup quand je met le code j'ai un message d'erreur qui me dit

Propriété ou méthode non gérée par cet objet

Ou mettre cette ligne de code ?

Merci d'avance et bonne journée

Max

[jfontaine]

J'ai oublié un bout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("editionAnnuaire").Rows("1:1").Interior.ColorIndex = 5

Je ne sais pas si c'est sur cette feuille mais le principe est là

[apdf1]

Re,

Sa marche bien sauf que la ligne vient bien bleue mais a partir de la colonne "H" alors que j'aimerai quel devienne bleue de A1 à G1

@+

Max

[jfontaine]

Dasn ce cas,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("editionAnnuaire").Range("A1:G1").Interior.ColorIndex = 5