Rechercher / Remplacer un peu spécial

Bonjour à tous,

J'ai cherché sur le forum mais je n'ai pas trouvé ce que je recherche.

Je souhaite rechercher dans la colonne "E" le pays "Espagne" et remplacer "4111" présent dans la colonne G par le code "411ESPAGNE".

Faire la même chose avec la "France" colonne E et remplacer "4111" présent dans la colonne G par le code "411FRANCE"

idem pour Luxembourg...

Ce que je veux c'est que chaque pays soit associés à un code spécifique dans la colonne G

Espagne >> 411ESPAGNE

France >> 411FRANCE

Luxembourg >> 411LUXEMBOURG

J'espère que je me fais bien comprendre.

Merci d'avance de votre aide.

Bonsoir,

Peux tu insérer ton fichier excel en attaché pour te le reprendre ?

C plus facile.

Si tu n'"as pas besoin que ce soit spécifiquement dans la colonne ou il y a deja le numéro; le plus simple ca doit etre d'écrire en I2 la fomrule :

=G2&E2

ou si tu veux un espace entre les 2 :

=G2&" "&E2

Je viens de modifier mon fichier joint.

Désolé rrratassse mais je préfére passer par une macro car je vais devoir aussi modifier d'autres choses dans cette colonne.

Merci d'avance.

Bonsoir,

Quelqu'un a t-il une idée ? Merci d'avance.

Bonjour,

Une proposition Power Query (Récupérer et transformer des données) qui concatène les valeurs des colonnes E et G.

A te relire.

Cdlt.

Bonjour

voila un macro import CSV

A voir

Sub ChoixFicCsv()
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier CSV"
         .Filters.Clear
         .Filters.Add "Fichier Csv ", "*.csv*", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               LireMan Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

Sub LireMan(NomFichier)
Dim Ar() As String
   With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .Calculation = xlManual
   End With
Rows("1:" & Rows.Count).ClearContents
Sep = ";"
Lig = 1
' -----------------------------------------
On Error Resume Next
   Open NomFichier For Input As #1
        Do While Not EOF(1)
            Line Input #1, Chaine
               Ar = Split(Chaine, Sep)
               Col = 1
                  For X = LBound(Ar) To UBound(Ar)
                  If Lig = 1 Then
                            Cells(Lig, Col).Value = CStr(Ar(X))
                        Else
                            Select Case Col
                                Case 2
                                    Cells(Lig, Col).Value = CDate(Ar(X))
                                Case 5
                                    Cells(Lig, Col).Value = "411" & CStr(Ar(X))
                                Case Else
        '                            Cells(Lig, Col).Value = Application.Trim(CStr(Ar(X)))
                                    Cells(Lig, Col).Value = CStr(Ar(X))
                             End Select
                  End If
                     Col = Col + 1
                  Next
            Lig = Lig + 1
        Loop
    Close #1
' -----------------------------------------
   With Application
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
      .EnableEvents = True
      .CutCopyMode = False
      .Goto [A1], True
   End With
End Sub

A+

Maurice

merci beaucoup pour ton aide, je vais travailler sur mon fichier afin de faire des essais.

Je te tiend informé.