VBA Modifier la valeur d'une cellule avec conditions

**Aaaaarh** · 15/08/2022, 22h25

Bonjour la communauté,

Je viens de nouveau solliciter votre aide. Je vais essayer d'être précis car j'ai du mal à tourner ma demande.

En effet, j'ai une macro qui trouve deux noms de colonnes (via boucle) et filtre ces deux colonnes selon ma demande. Ex : Filtre sur ma colonne nommée "GAM" (avec un critère) et filtre sur ma colonne nommée "Attribution" (avec un critère)

Ces deux filtres renvoient ou pas à des lignes. Si c'est le cas, j'aimerais modifier le nom des lignes retrouvées avec les deux filtres par une autre valeur. Si par contre ça ne retrouve aucune ligne, je ne veux rien modifier. Ex : Colonne "GAM" filtré sur Codé + colonne "Attribution" filtré sur Sans frais. Imaginons dans cette exemple, j'ai 4 lignes, ce que je souhaiterais, c'est modifier les lignes de la colonne "Attribution" (actuellement avec la valeur Sans frais) par "Absent"

Ma première difficulté est que je ne sais pas si ça me renvoie des lignes ou pas ? La seconde est de réussir à modifier toutes les valeurs des lignes qui seraient retrouvées.

J'ai bien essayé quelques choses mais je n'y arrive pas. En gros après mes boucles et filtres, j'ai commencé par sélectionner le nom de colonne nommé "attribution" par le code ci dessous (enregistreur automatique)

Code :

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

1
2
3
              Cells.Find(What:="Attribution", After:=ActiveCell, LookIn:=xlFormulas, _
              LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
              MatchCase:=False, SearchFormat:=False).Activate

Ensuite je voulais sélectionner la première ligne retrouvé avec les filtres en dessous avec le code ActiveCell.Offset(1, 0).Select, sauf que comme il y a des filtres, il ne m'a pas sélectionné la première ligne trouvée avec les filtres mais une lignes filtrés. Du coup, je n'ai pas réussi à arriver à ma troisième étape qui était de faire un IF...

Sauriez vous comment réussir à faire ce que je souhaite ? Y a t il des solutions plus simple que celles que j'ai essayé ?

Auriez vous d'autres idées

Merci pour aide une nouvelle fois

Cordialement

**Limace_hurlante** · 16/08/2022, 10h17

Bonjour,
Si ton tableau n'est pas trop "gros" ou que la rapidité d'exécution n'est pas un problème, tu peux très simplement faire des if imbriqués dans un boucle.

Par exemple :

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
Sub RemplaceDuTexte()
    Dim Col1 As Integer, Col2 As Integer, i As Integer
 
    Col1 = NumDeColonneParNom("GAM")
    Col2 = NumDeColonneParNom("Attribution")
 
    If Col1 * Col2 = 0 Then
        MsgBox "Les collone n'ont pas été trouvée"
        Exit Sub
    End If
 
    For i = 2 To Cells(2, 1).End(xlDown).Row
        If Cells(i, Col1).Value = "Codé" And Cells(i, Col2).Value = "Sans frais" Then
            Cells(i, Col2).Value = "Absent"
        End If
    Next i
 
End Sub
Function NumDeColonneParNom(intitul As String) As Integer
    NumDeColonneParNom = 0
    Dim i As Integer
    For i = 1 To Cells(1, 1).End(xlToRight).Column
        If Cells(1, i).Value = intitul Then NumDeColonneParNom = i
    Next i
End Function

**Aaaaarh** · 16/08/2022, 15h18

Salut Limace_hurlante,

Un graaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaannnnnnnnnnnnnnnnnnnnnnnnnnnnd merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii pour ton aide.
J'avais oublié de préciser que ma colonne A était vide, mais en modifiant

Code :

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

         For i = 2 To Cells(2, 2).End(xlDown).Row

et

Code :

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

         For i = 1 To Cells(1, 2).End(xlToRight).Column

ça a fonctionné quand il retrouve des données à modifier. Par contre, s'il n'y en a pas il me met le message d'erreur d'exécution '6': Dépassement de capacité

Saurais tu comment régulariser cette erreur ?

Merci ++++++++++++++++++++++

**EricDgn** · 16/08/2022, 16h14

Bonjour,

Une autre façon de faire sur un tableau structuré:

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
Option Explicit
 
Sub Code_sans_frais()
    Dim iGAM As Long, iATT As Long, rngData As Range
    Set rngData = Range("Tableau1[#All]")
    iGAM = Application.WorksheetFunction.Match("GAM", rngData.Rows(1), 0)
    iATT = Application.WorksheetFunction.Match("Attribution", rngData.Rows(1), 0)
    With rngData
        .AutoFilter Field:=iGAM, Criteria1:="Codé"
        .AutoFilter Field:=iATT, Criteria1:="Sans frais"
    End With
    Set rngData = Range("Tableau1[#All]").SpecialCells(xlCellTypeVisible)
    Set rngData = Intersect(Range("Tableau1[Attribution]"), rngData)
    If rngData Is Nothing Then
        Range("Tableau1").Cells(1, 1).Select
    Else
        rngData.Replace What:="Sans frais", Replacement:="Absent", LookAt:=xlWhole
        rngData.Cells(1, 1).Select
    End If
    Range("Tableau1[#All]").AutoFilter
    Set rngData = Nothing
End Sub

Cordialemant.

**Aaaaarh** · 16/08/2022, 17h10

Salut EricDng,

Un très grand merci pour ta solution également. J'ai transposé la version sans nommer le tableau sur mon fichier, mais j'ai une erreur d'exécution 9 L'indice n'appartient pas à la sélection sur le code

Code :

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

Set rngData = ActiveSheet.ListObjects(1).Range

Mais non je n'ai pas un tableau structuré du coup c'est probablement pour celà que ça ne fonctionne pas ?

Merci pour ton aide,

**Limace_hurlante** · 16/08/2022, 17h10

LA solution d'EricDgn est clairement plus efficace que la mienne si tu as un tableau structuré.

Néanmoins si tu veux utiliser ma méthode, la voici avec la correction :

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
Sub RemplaceDuTexte()
    Dim Col1 As Integer, Col2 As Integer, i As Integer
 
    Col1 = NumDeColonneParNom("GAM")
    Col2 = NumDeColonneParNom("Attribution")
 
    If Col1 * Col2 = 0 Then
        MsgBox "Les collone n'ont pas été trouvée"
        Exit Sub
    End If
 
    For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        If Cells(i, Col1).Value = "Codé" And Cells(i, Col2).Value = "Sans frais" Then
            Cells(i, Col2).Value = "Absent"
        End If
    Next i
 
End Sub
Function NumDeColonneParNom(intitul As String) As Integer
    NumDeColonneParNom = 0
    Dim i As Integer
    For i = 1 To Cells(1, 1).End(xlToRight).Column
        If Cells(1, i).Value = intitul Then NumDeColonneParNom = i
    Next i
End Function

**EricDgn** · 16/08/2022, 17h18

Envoyé par Aaaaarh

Set rngData = ActiveSheet.ListObjects(1).Range

C'est sans doute que les données ne sont pas dans un "tableau structuré" (onglet Insertion, bouton Tableau) mais dans une plage normale. Un tutoriel sur les tableaux structurés.

Cordialement.

**Aaaaarh** · 16/08/2022, 17h38

Re bonjour Limace_hurlante,

J'ai essayé ton nouveau code, mais je ne sais pas trop pourquoi il me met le Msgbox même quand il y a des lignes et il ne les transforme pas.
J'ai transformé ton code ainsi et ça a l'air de bien fonctionner, mais il ne me présente jamais le Msgbox même quand il n'y a pas de ligne, est ce normal ? Dans l'absolu ça ne me dérange pas du tout, mais je voudrais juste être certain de ne pas avoir une mauvaise surprise un jour :-)

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
Dim Col1 As Integer, Col2 As Integer, i As Long
    Col1 = NumDeColonneParNom("GAM")
    Col2 = NumDeColonneParNom("Attribution")
    If Col1 * Col2 = 0 Then
        MsgBox "Les collone n'ont pas été trouvée"
        Exit Sub
    End If
'
        For i = 2 To Cells(2, 2).End(xlDown).Row
        If Cells(i, Col1).Value = "Codé" And Cells(i, Col2).Value = "Sans frais" Then
            Cells(i, Col2).Value = "Absent"
        End If
    Next i
End Sub
Function NumDeColonneParNom(intitul As String) As Integer
    NumDeColonneParNom = 0
    Dim i As Integer
    For i = 1 To Cells(1, 2).End(xlToRight).Column
        If Cells(1, i).Value = intitul Then NumDeColonneParNom = i
    Next i
End Function

Encore merci

**Aaaaarh** · 16/08/2022, 17h41

Re bonjour EricDgn EricDgn,

Un grand merci pour ce tuto que je vais ire avec attention. En effet, je n'ai pas un tableau structuré, je vais voir si cette solution peut me convenir car dans ma macro il va chercher la première colonne vide pour y créer une nouvelle colonne et je ne crois pas qu'elle en ferait partie. En tout cas merci pour tout

Cordialement

**Limace_hurlante** · 17/08/2022, 22h07

Envoyé par Aaaaarh

mais il ne me présente jamais le Msgbox même quand il n'y a pas de ligne, est ce normal ?

Oui c'est normal, le msgbox ne doit être vu que si les colonnes sont absente, pas les lignes :-)
si tu le souhaite pour "controler" ce qui est fait, tu peux rajouter ça à ton code :
au debut de la sub :

Code :

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

1
2
Dim compte as integer
compte = 0

puis dans le if tu rajoute :

Code :

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

1
2
3
 
Cells(i, Col2).Value = "Absent"
compte = compte +1

et tu finit ton code juste avant le end sub par :

Code :

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

Msgbox "Le programme a effectué " & compte & " remplacements."

**Aaaaarh** · 19/08/2022, 18h22

Salut Limace_hurlante,

Super merciiiiiiiiiii vraiment 😊

Au plaisir

VBA Modifier la valeur d'une cellule avec conditions

Macros et VBA Excel

Discussions similaires

Partager

Partager