Je souhaite tout simplement effacer toutes les cellules de la col D où il à
f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour,
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
Plage.ClearContents
End Sub
Cordialement.
Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f
de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Manu
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion :
lv75dh$art$1@speranza.aioe.org...
Bonjour,
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
Plage.ClearContents
End Sub
Cordialement.
Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il
à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Manu
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro
supprime toutes les autres (ce qui est logique car si il ne trouve pas de
"f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à
dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion :
lv76ar$db7$1@speranza.aioe.org...
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion :
lv75dh$art$1@speranza.aioe.org...
Bonjour,
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
Plage.ClearContents
End Sub
Cordialement.
Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il
à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
DanielCo
Juste. Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) If Application.Subtotal(103, Plage) > 0 Then Plage.ClearContents End If End Sub Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Juste.
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
If Application.Subtotal(103, Plage) > 0 Then
Plage.ClearContents
End If
End Sub
Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro
supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f"
avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire
tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion :
lv76ar$db7$1@speranza.aioe.org...
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion :
lv75dh$art$1@speranza.aioe.org...
Bonjour,
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
Plage.ClearContents
End Sub
Cordialement.
Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à
f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Juste. Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) If Application.Subtotal(103, Plage) > 0 Then Plage.ClearContents End If End Sub Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Manu
Merci Daniel,
ca fonctionne parfaitement !!! Il faut absolument que je prenne une formation VBA...
j'ai une autre question mais le sujet est diffèrent, j'ouvrirais une nouvelle ficelle.
Bonne soirée
Manu
le message de groupe de discussion : lv78vu$k9h$
Juste. Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) If Application.Subtotal(103, Plage) > 0 Then Plage.ClearContents End If End Sub Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Merci Daniel,
ca fonctionne parfaitement !!! Il faut absolument que je prenne une
formation VBA...
j'ai une autre question mais le sujet est diffèrent, j'ouvrirais une
nouvelle ficelle.
Bonne soirée
Manu
le message de groupe de discussion : lv78vu$k9h$1@speranza.aioe.org...
Juste.
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
If Application.Subtotal(103, Plage) > 0 Then
Plage.ClearContents
End If
End Sub
Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro
supprime toutes les autres (ce qui est logique car si il ne trouve pas de
"f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à
dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion :
lv76ar$db7$1@speranza.aioe.org...
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion :
lv75dh$art$1@speranza.aioe.org...
Bonjour,
Sub test3()
Dim Plage As Range
[D1:D20000].AutoFilter 1, "f"
Set Plage = ActiveSheet.AutoFilter.Range.Offset(1)
Set Plage = Plage.Resize(Plage.Rows.Count - 1)
Plage.ClearContents
End Sub
Cordialement.
Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il
à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
ca fonctionne parfaitement !!! Il faut absolument que je prenne une formation VBA...
j'ai une autre question mais le sujet est diffèrent, j'ouvrirais une nouvelle ficelle.
Bonne soirée
Manu
le message de groupe de discussion : lv78vu$k9h$
Juste. Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) If Application.Subtotal(103, Plage) > 0 Then Plage.ClearContents End If End Sub Daniel
Il y a tout de même un soucis, si il n'y a pas de cellule "f" la macro supprime toutes les autres (ce qui est logique car si il ne trouve pas de "f" avec les filtres, il ne filtre pas et supprime ce qu'il reste c'est à dire tout), et ça il ne faut absolument pas. Comment faire ? Merci
Manu
"Manu" a écrit dans le message de groupe de discussion : lv76ar$db7$
Très loin de ce dont je pensais.
Merci Daniel
"DanielCo" a écrit dans le message de groupe de discussion : lv75dh$art$
Bonjour, Sub test3() Dim Plage As Range [D1:D20000].AutoFilter 1, "f" Set Plage = ActiveSheet.AutoFilter.Range.Offset(1) Set Plage = Plage.Resize(Plage.Rows.Count - 1) Plage.ClearContents End Sub Cordialement. Daniel
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
FxM
Bonjour,
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en majuscule. Reste que cela va être d'une lenteur effroyable.
@+ FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Bonjour,
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette
version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en
minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en
majuscule. Reste que cela va être d'une lenteur effroyable.
@+
FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où
il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en majuscule. Reste que cela va être d'une lenteur effroyable.
@+ FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Manu
Merci Fx, je n'avais pas compris. J'en prend note.
Manu
"FxM" a écrit dans le message de groupe de discussion : lve98p$97u$
Bonjour,
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en majuscule. Reste que cela va être d'une lenteur effroyable.
@+ FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
Merci Fx, je n'avais pas compris. J'en prend note.
Manu
"FxM" a écrit dans le message de groupe de discussion :
lve98p$97u$1@dont-email.me...
Bonjour,
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette
version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en
minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en
majuscule. Reste que cela va être d'une lenteur effroyable.
@+
FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où
il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas :
Sub supF()
For Each C In [d2:d2000]
If UCase(C) = "f" Then
Cells.ClearContents
End If
Next C
End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant
parce que la protection avast! Antivirus est active.
http://www.avast.com
---
Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active.
http://www.avast.com
Merci Fx, je n'avais pas compris. J'en prend note.
Manu
"FxM" a écrit dans le message de groupe de discussion : lve98p$97u$
Bonjour,
Avec la solution pré-digérée qui marche, as-tu compris pourquoi cette version ne marchait pas vraiment ?
If UCase(C) = "f" Then
compare quelque chose en majuscule ucase(...) à quelque chose en minuscule "f". Rien ne peut correspondre.
If UCase(C) = Ucase("f") Then devrait marcher puisque tout est en majuscule. Reste que cela va être d'une lenteur effroyable.
@+ FxM
Le 15/09/2014 18:34, Manu a écrit :
Bonjour,
Je souhaite tout simplement effacer toutes les cellules de la col D où il à f de taper (peu importe la casse).
Je bidouille avec cela, mais ca ne fonctionne pas : Sub supF() For Each C In [d2:d2000] If UCase(C) = "f" Then Cells.ClearContents End If Next C End Sub
que me manque t'il. Vraiment pas facile le vba....
Merci
Manu
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com
--- Ce courrier électronique ne contient aucun virus ou logiciel malveillant parce que la protection avast! Antivirus est active. http://www.avast.com