Discussion :

[a.ouguerzam]

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.

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
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

[Daniel.C]

Bonjour,

Je n'ai pas compris ce que tu veux remplacer. Peux-tu donner un exemple ?

[a.ouguerzam]

Classeur VBA.xlsmci joint mon fichier
sur la ligne copiée j'ai besoin de changer "CAN" par "CSA"

je reste disponible pour plus d'informations.Classeur VBA.xlsmClasseur VBA.xlsm


Cdt,
Abdellatif

[Marc-L]

Bonjour, bonjour !

Une seule ligne de code nécessaire avec la méthode Replace, pas besoin de chercher bien loin ‼

Sinon effectuer depuis la feuille de calcul un Rechercher / Remplacer …
Et en activant au préalable le Générateur de macros, l'ami du débutant, un code est livré sur un plateau !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Daniel.C]

Code :

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

valcherch = Sheets("Extraction1").Range("A1")

J'ai loupé quelque chose ou la cellule A1 est vide ?

[a.ouguerzam]

Bonjour daniel,

La cellule A1 ne pas vider par contre il la condition avec qui je copier-coller la ligne la valeur c’est « 1 » juste en couleur blanc

je reste disponible pour plus d'informations.

cdt,
ouga

[a.ouguerzam]

Bonjour marc,

Sauf que moi je veux remplacer le texte de la cellule V de la ligne copiée sans touche l’originale, j’arrive à copier-coller la ligne sous condition mais j’ai besoin de change le texte de la cellule V de la ligne copiée de « CAN » vers « CSA »
Merci de votre prise en charge.

Merci d’avance.


cdt,
ouga

[Daniel.C]

Je reproduis ici la partie de ton code que j'ai modifié :

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
    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)
                If .Range("A" & derlig).Offset(, 21) = "CAN" Then
                    .Range("A" & derlig).Offset(, 21) = "CSA"
                End If
            End If
        Next cel
    End With
    'rafraichissement ecran
    Application.ScreenUpdating = True

[a.ouguerzam]

Ça fonctionne parfaitement merciii bcq
Mais par contre si j’avais « CSA » a la ligne d’origine je veux avoir « CAN » est ce que c’est possible

[Daniel.C]

Le code suivant remplace "CSA" par "CAN" et réciproquement :

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
    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)
                Select Case .Range("A" & derlig).Offset(, 21)
                    Case "CSA"
                        .Range("A" & derlig).Offset(, 21) = "CAN"
                    Case "CAN"
                        .Range("A" & derlig).Offset(, 21) = "CSA"
                End Select
                End If
            End If
        Next cel
    End With

[a.ouguerzam]

Bonjour,

Merci bcq Daniel pour ta collaboration
Ça marche très bien


Cdt,
ouga