copier avec le format couleur texte

Le
news microsoft
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #20153061
bonjour,

Sheets("visio").Range("A" & Y).Copy = .Range("a" & X)


isabelle


news microsoft a écrit :
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





Jacky
Le #20155961
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" news:
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




Jacky
Le #20156121
Re..
il y a aussi
'----------
'----------
If .Range("D" & X).Value = RechercheparCommune Then
.Rows(X).Copy Sheets("visio").Rows(y)
'----------
'---------
--
Salutations
JJ


"Jacky"
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" news:
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








Dominique
Le #20169511
Le 16/09/2009 09:40, Jacky a écrit :
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.



j ai choisi cette solution

.Range("a" & X).EntireRow.Copy Sheets("visio").Range("A" & Y)

merci beaucoup
Publicité
Poster une réponse
Anonyme