Copier coller les lignes sous conditions avec une modifications
Billy
-
Billy.ouguerzam Messages postés 15 Statut Membre -
Billy.ouguerzam Messages postés 15 Statut Membre -
Bonjour tout le monde,
Sur un fichier Excel j'ai besoin de copier et coller des lignes qui contient une condition sur une cellule.
Le problème que j'ai-je veux changer sur la ligne copie le contenu d'une cellule texte par un autre texte
Ci-dessous le code que j'ai utilisé par le copiage il me reste que de change le texte de la cellule sur la ligne copie.
Merci d'avance pour vous.
Cdt,
OuGa
Sur un fichier Excel j'ai besoin de copier et coller des lignes qui contient une condition sur une cellule.
Le problème que j'ai-je veux changer sur la ligne copie le contenu d'une cellule texte par un autre texte
Ci-dessous le code que j'ai utilisé par le copiage il me reste que de change le texte de la cellule sur la ligne copie.
Sub Renouvellement_Norm()
Dim plage As Range, cel As Range
'stop rafraichissement ecran
Application.ScreenUpdating = False
'valeur a chercher
valcherch = Sheets("Extraction1").Range("A1")
With Worksheets("Extraction1")
'derniere cellule colonne D
derlig = .Range("U" & Rows.Count).End(xlUp).Row
'defintion plage a tester en memoire
Set plage = .Range("U5:U" & derlig)
End With
derlig = 0
With Worksheets("Extraction1")
'test plage
For Each cel In plage
If cel = valcherch Then
'premiere cellule vide apres derniere non vide colonne D
derlig = .Range("U" & Rows.Count).End(xlUp).Row + 1
'premier lancement
If derlig = 2 Then
derlig = 9
End If
'copy ligne entiere
cel.EntireRow.Copy .Range("A" & derlig)
End If
Next cel
End With
'rafraichissement ecran
Application.ScreenUpdating = True
End Sub
Merci d'avance pour vous.
Cdt,
OuGa
4 réponses
-
Bonjour
il me reste que de change le texte de la cellule sur la ligne copie.
Ok mais quel est l'origine du texte et dans quelle cellule de la ligne copiée?
colonne "D" ou colonne "U " ?
-
par exemple sur la ligne original j'ai sur la colonne V "CAN" apres le copiage sur la ligne copiée j'ai besoin de change "CAN" par "CSA".
merci d'avance. -
Bonjour,
je n'y copmptrend rien à tes colonnes
dans ton code tu parles en commentaires de "D" et dans le code de "U"
maintenant V
pour tenter de clarifier:
mettre le classeur sans données confidentielles en pièce jointe sur http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Dans l'attente
-
bonjour michel,
Merci d'aborde de ta collaboration
Je t'explique le principe j'ai des lignes sur chaque ligne j'ai une formule pour définir les lignes a copiée je me base sur la colonne U si je trouve le chiffre 1 automatiquement la ligne va se copiée vers la dernière ligne vide
Sauf que j'ai besoin de change un texte sur la cellule V de la ligne copiée sur mon code je parle pas de colonne D
Ci-dessous le code bien modifie
Sub Renouvellement_Norm()
Dim plage As Range, cel As Range
'stop rafraichissement ecran
Application.ScreenUpdating = False
'valeur a chercher
valcherch = Sheets("Extraction1").Range("A1")
With Worksheets("Extraction1")
'derniere cellule colonne U
derlig = .Range("U" & Rows.Count).End(xlUp).Row
'defintion plage a tester en memoire
Set plage = .Range("U5:U" & derlig)
End With
derlig = 0
With Worksheets("Extraction1")
'test plage
For Each cel In plage
If cel = valcherch Then
'premiere cellule vide apres derniere non vide colonne D
derlig = .Range("U" & Rows.Count).End(xlUp).Row + 1
'premier lancement
If derlig = 2 Then
derlig = 9
End If
'copy ligne entiere
cel.EntireRow.Copy .Range("A" & derlig)
End If
Next cel
End With
'rafraichissement ecran
Application.ScreenUpdating = True
End Sub
-
-
Si je t'ai demandé de mettre ton classeur en pièce jointe, c'est qu'il semble y avoir beaucoup d'optimisations possible de ton code...
Maintenant, tu fais ce que tu veux, mais....
Michel
