Problème avec fonction recherche et remplace pour le symbole "?"

Pour cela, il nous faudra le classeur contenant la macro + 1 ou 2 classeurs "à ouvrir".

Pour joindre un fichier sur les forums de ccm il faut:
________________________________________________________    
- se rendre sur le site : https://www.cjoint.com/    
- cliquer sur parcourir    
- rechercher le fichier    
- cliquer sur ouvrir    
- cliquer sur créer le lien Cjoint   
 - copier le lien    
- revenir ici le coller dans une réponse
________________________________________________________

Et voilà mes fichiers!

http://www.cjoint.com/c/FDgmzE3B0to, Macro
http://www.cjoint.com/c/FDgmAacIzSo, fichier test
http://www.cjoint.com/c/FDgmAVO8Zqo, fichier test

Bon.
Tu va tester ça sur des copies de deux trois classeurs cibles.
Ok?
Par contre, dans les commentaires de la macro, tu verras ceci (je n'ai pas compris ce que tu cherches à faire. Rien à mon avis...) :

            'CETTE PARTIE LA EST ENCORE A M'EXPLIQUER :
            '            If .Range("D" & N) <> "" Then
            '                If .Range("A" & N) <> "" Then
            '                    TInfos = .Range("A" & N & ":C" & N)
            '                Else
            '                    .Range("A" & N & ":C" & N) = TInfos
            '                End If
            '            End If
            '------------ FIN EXPLICATIONS

J'ai également ajouté le .Close sur ActiveWorkbook... Mais je ne suis pas sur de moi à 100%...

Option Explicit

Private Sub CommandButton1_Click()

    Dim nombre As Integer
    Dim QuelFichier()
    Dim Chemin As String, Fichier As String, Nomclasseur As String
    Dim DerLig As Long
    'Dim plage As Range
    Dim cible As String
    'Dim r As Range
    Dim CptPlein As Long, CptCasse As Long, CptBrise As Long, CptInterr As Long, CptX As Long
    
    cible = "plein d'eau"
    ChDrive "m"
    ChDir "M:\Entrepot\BDFS\1_Piézomètres\"
On Error GoTo fin
    QuelFichier = Application.GetOpenFilename("Fichier excel(*.xls; *.xlsx),*.xls;*.xlsx", , , , True)
    If IsArray(QuelFichier) Then
        For i = LBound(QuelFichier, 1) To UBound(QuelFichier, 1)
            Workbooks.Open QuelFichier(i)
            '-------------------------------------------
            'Nom de fichier SANS extention en partant du chemin complet
            Nomclasseur = Left(Mid(QuelFichier(i), InStrRev(QuelFichier(i), "\") + 1), Len(Mid(QuelFichier(i), InStrRev(QuelFichier(i), "\") + 1)) - 4)
            '-------------------------------------------
            Application.ScreenUpdating = False
            'nombre = ActiveWorkbook.Sheets.Count
            'For N = 2 To nombre
            '    Worksheets(N).Unprotect
            'Next N
            For x = 2 To Sheets.Count - 1
                With Sheets(x)
                    .Unprotect
                    Sheets(x).Columns("E:O").EntireColumn.Hidden = False
                    DerLig = .Range("E" & Rows.Count).End(xlUp).Row
                    For N = 2 To DerLig
                        Select Case .Range("E" & N).Value
                            Case "plein"
                                .Range("E" & N).Value = 0
                                CptPlein = CptPlein + 1
                            Case "cassé"
                                .Range("E" & N).Value = ""
                                CptCasse = CptCasse + 1
                            Case "brisé"
                                .Range("E" & N).Value = ""
                                CptBrise = CptBrise + 1
                            Case "?"
                                .Range("E" & N).Value = ""
                                CptInterr = CptInterr + 1
                            Case "X", "x"
                                CptX = CptX + 1
                                If .Range("E" & N).Offset(0, 10) = cible Then
                                    .Range("E" & N).Value = ""
                                Else
                                    .Range("E" & N).Value = 0
                                End If
                            Case Else
                        End Select
                    Next N
                    .Protect
                End With
            Next x
            'CETTE PARTIE LA EST ENCORE A M'EXPLIQUER :
            '            If .Range("D" & N) <> "" Then
            '                If .Range("A" & N) <> "" Then
            '                    TInfos = .Range("A" & N & ":C" & N)
            '                Else
            '                    .Range("A" & N & ":C" & N) = TInfos
            '                End If
            '            End If
            '------------ FIN EXPLICATIONS
            '        Next N
            '        Sheets(x).Range("A2").Select
            '    End With
            'Next x
            'nombre = ActiveWorkbook.Sheets.Count
            'For N = 2 To nombre
            '    Worksheets(N).Protect
            'Next N
            Chemin = CurDir & "\Transfert\"
            Fichier = Nomclasseur & "_traité" & ".xlsx"
            On Error Resume Next
            With ActiveWorkbook
                .SaveCopyAs Chemin & Fichier
                '!!!!!!!!!!!!!! A TESTER
                .Close
            End With
            '-------------------------------------------
        Next i
    Else
        MsgBox "Annuler"
    End If
    MsgBox "Vous avez corrigé :" & vbCrLf & _
                CptX & " X," & vbCrLf & _
                CptBrise & " brisé," & vbCrLf & _
                CptCasse & " cassé," & vbCrLf & _
                CptInterr & " ?," & vbCrLf & _
                CptPlein & " plein."
    UserForm1.Hide
    ThisWorkbook.Saved = True
    Application.ScreenUpdating = True
    UserForm2.Show
    
fin:
Application.Quit
End Sub

Merci beaucoup, je teste ça!

Pour les lignes que tu mentionnent, je vient de me souvenir!

C'est un aspect quand même important que j'avais complètement oublié, désolé!

C'est que dans les colonnes A, B et C se retrouve des valeurs mais seulement sur la première ligne de chacune des nouveaux emplacement de lecture. Donc, il me faut recopier cette valeur jusqu'à la prochaine valeur différente de la colonne C.

Alors la macro, détecte la dernière ligne non vide de la colonne D parce que c'est la première colonne de la feuille à contenir des valeurs jusqu'à la fin. Recopie la valeur de la colonne A, B et C jusqu'à la nouvelle valeur de la colonne C.

Merci pour le coup de main!

Bonjour,

Ce que tu as codé ne correspond pas du tout à ce que tu me dis concernant les colonnes A, B et C...

Bon attendons déjà de faire fonctionner le reste, on reviendra là dessus après.

Bonjour,

Bon, j'ai testé le tout!

Pour de ce qui est de la vérification de la valeur "X" dans la colonne E si le texte de la colonne O est égale à "plein d'eau", la valeur de la colonne E est alors égale "0". Ne fonctionne pas, voir feuille Z32164 (fichier1_test).

Pour le reste ça fonctionne bien!

Pour le code concernant les colonnes A, B et C, je ne suis pas un expert et ce n'est pas moi qui l'écrit, mais c'est ce que ça fait en gros! C'est probablement mon explication qui est erroné, mais le résultats que j'ai c'est ça.

Merci beaucoup!