copier avec le format couleur texte

Bonjour le forum,

pouvez vous m'aider pour ce probléme, et merci d'avance.
voila, j ai fait ce code qui me permet une recherche dans une base de
donnée(BD) grace un userform. Il marche bien. mais voila je voudrais
recuperer aussi la couleur du texte qui se trouve dans la BD.
voici une partie du code
If RechercheparCommune <> "" Then
Y = 2
For X = 2 To NLBD
If .Range("D" & X).Value = RechercheparCommune Then
Sheets("visio").Range("A" & Y).EntireRow.Value = .Range("a" &
X).EntireRow.Value
Y = Y + 1
End If
Next X
End If
merci pour votre aide

Bonjour le forum,

pouvez vous m'aider pour ce probléme, et merci d'avance.
voila, j ai fait ce code qui me permet une recherche dans une base de
donnée(BD) grace un userform. Il marche bien. mais voila je voudrais
recuperer aussi la couleur du texte qui se trouve dans la BD.
voici une partie du code
If RechercheparCommune <> "" Then
Y = 2
For X = 2 To NLBD
If .Range("D" & X).Value = RechercheparCommune Then
Sheets("visio").Range("A" & Y).EntireRow.Value = .Range("a" &
X).EntireRow.Value
Y = Y + 1
End If
Next X
End If
merci pour votre aide

Bonjour,

'-----------
If .Range("D" & X).Value = RechercheparCommune Then
.Range("a" & X).EntireRow.Copy Sheets("visio").Range("A" & Y)
'--------
'---------

Ps: il est sous-entendu qu'il y ait un "With" (+nom de la feuille de
copie) en début de code.

--
Salutations
JJ


"news microsoft" <dominique.lecornu@fdc-28.com> a écrit dans le message de
news: OHxyqXiNKHA.3384@TK2MSFTNGP04.phx.gbl...

Bonjour le forum,

pouvez vous m'aider pour ce probléme, et merci d'avance.
voila, j ai fait ce code qui me permet une recherche dans une base de
donnée(BD) grace un userform. Il marche bien. mais voila je voudrais
recuperer aussi la couleur du texte qui se trouve dans la BD.
voici une partie du code
If RechercheparCommune <> "" Then
Y = 2
For X = 2 To NLBD
If .Range("D" & X).Value = RechercheparCommune Then
Sheets("visio").Range("A" & Y).EntireRow.Value = .Range("a" &
X).EntireRow.Value
Y = Y + 1
End If
Next X
End If
merci pour votre aide

Bonjour,

'-----------
If .Range("D"& X).Value = RechercheparCommune Then
.Range("a"& X).EntireRow.Copy Sheets("visio").Range("A"& Y)
'--------
'---------

Ps: il est sous-entendu qu'il y ait un "With" (+nom de la feuille de copie)
en début de code.