effacement d'une partie d'une colonne

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lagodille

XLDnaute Occasionnel
bonjour
j'ai la procedure suivante:
Sub simul()
Dim u As Integer
Application.ScreenUpdating = False
Sheets("Global").Select
For u = 5 To 44
If Sheets("Global").Cells(5, u).Value = "DFA" Then Sheets("Global").Cells(6, u).EntireColumn.ClearContents = True
Next u
Application.ScreenUpdating = True
End Sub

le probkème est que je voudrais effacer dans les colonnes qui contiennent "DFA" qu'une plage bien precise et non pas la colonne entière (entirecolumn).
En fait au dessus de la 6ème ligne je ne veux rien effacer.

y a t i l une solution?

merci
 
Trier par date Trier par votes
Re : effacement d'une partie d'une colonne

Bonsoir Lagodille

regarde peut être le code ci dessous :

Code: 
Dim u As Integer
With Sheets("Global")
    For u = 5 To 44
        If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(.Cells(65536, u).End(xlUp).Row, u)).ClearContents
    Next u
End With

Edition Bonsoir JB

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

Pierrot93 à dit:
Bonsoir Lagodille

regarde peut être le code ci dessous :

Code: 
Dim u As Integer
With Sheets("Global")
    For u = 5 To 44
        If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(.Cells(65536, u).End(xlUp).Row, u)).ClearContents
    Next u
End With

Edition Bonsoir JB

bonne soirée
@+
Cliquez pour agrandir...


bonsoir
merci pour votre aide seulement pouvez vous m'expliquer ce qui est fait car je ne comprends pas tout. surtout sur le fait que je ne veux traiter les colonnes qu'a partir de la 6ème ligne
merci
 
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

Pierrot93 à dit:
Bonsoir Lagodille

regarde peut être le code ci dessous :

Code: 
Dim u As Integer
With Sheets("Global")
    For u = 5 To 44
        If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(.Cells(65536, u).End(xlUp).Row, u)).ClearContents
    Next u
End With

Edition Bonsoir JB

bonne soirée
@+
Cliquez pour agrandir...

je n'arrive pas a le faire tourner il me mets incompatibilité de type sur le if
 
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

Bonsoir à tous


Teste sous XL 2000 sans message d'erreur

Code: 
Sub simul_ii()
Dim u As Long
Application.ScreenUpdating = False
Sheets("Global").Activate
For u = 5 To 44
If Sheets("Global").Cells(5, u).Value = _
"DFA" Then Sheets("Global").Cells(6, u).Resize(65531).ClearContents
[COLOR=SeaGreen] 'BOISGONTIER[/COLOR]
Next u
Application.ScreenUpdating = True
End Sub

Code: 
Sub Simul_III()
Dim u As Long
[COLOR=SeaGreen]'Pierrot93[/COLOR]
With Sheets("Global")
For u = 5 To 44
If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(.Cells(65536, u).End(xlUp).Row, u)).ClearContents
Next u
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

Staple1600 à dit:
Bonsoir à tous


Teste sous XL 2000 sans message d'erreur

Code: 
Sub simul_ii()
Dim u As Long
Application.ScreenUpdating = False
Sheets("Global").Activate
For u = 5 To 44
If Sheets("Global").Cells(5, u).Value = _
"DFA" Then Sheets("Global").Cells(6, u).Resize(65531).ClearContents
[COLOR=SeaGreen] 'BOISGONTIER[/COLOR]
Next u
Application.ScreenUpdating = True
End Sub

Code: 
Sub Simul_III()
Dim u As Long
[COLOR=SeaGreen]'Pierrot93[/COLOR]
With Sheets("Global")
For u = 5 To 44
If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(.Cells(65536, u).End(xlUp).Row, u)).ClearContents
Next u
End With
End Sub
Cliquez pour agrandir...

pour le premier code il me marque toujours incompatibilite de type et ppour le deuxième code qui est pour moi plus interessant car j'aimerai limiter le nombre de ligne (50 par exemple) le code ne fonctionne pas du tout. oops ?
 
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

bonsoir
autant pour moi pierrot maintenant ca fonctionne .
serait il possible de pouvoir limiter le nombre de ligne à 50 c'est à dire de travailler uniquement de la ligne 6 à la ligne 56 et sur les colonnes de 5 à 44 bien sur ?
merci
 
Vote positif 0 Vote négatif
Re : effacement d'une partie d'une colonne

Bonjour Lagodille

comme ceci, peut être :

Code: 
Sub test()
Dim u As Integer
With Sheets("Global")
    For u = 5 To 44
        If .Cells(5, u).Value = "DFA" Then .Range(.Cells(6, u), .Cells(56, u)).ClearContents
    Next u
End With
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
453
CDALE
C
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
594
Nicolas JACQUIN
Nicolas JACQUIN
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
755
un internaute
U
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
Hasco
G
  • Résolu(e)
Microsoft 365 Faire une collection de collection en VBA
2
Réponses
25
Affichages
3 K
dysorthographie
dysorthographie
X
  • Résolu(e)
Microsoft 365 supprimer seulement les doublons consécutives dans la même cellule
Réponses
6
Affichages
972
Xray
X
M
  • Question Question
Microsoft 365 Ajout d'une image VBA
Réponses
6
Affichages
783
sylvanu
sylvanu
PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
Usine à gaz
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
4 K
Usine à gaz
Usine à gaz
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
nat54
A
  • Résolu(e)
XL 2016 Recherche la valeur d'une cellule dans la colonne d'une autre feuille
Réponses
12
Affichages
2 K
Lolote83
L
Q
  • Question Question
Microsoft 365 Décaler case s'il y en a 2 similaires dans la même colonne
Réponses
0
Affichages
849
quent632
Q
M
  • Résolu(e)
XL 2013 Recherche selon critère et transposer des données avec récurrence
Réponses
3
Affichages
1 K
MarieChérie
M
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
2 K
gaby.jvx
G
R
  • Résolu(e)
XL 2016 Lister fichiers avec Exifs et propriétés (suivant son choix) - code à modifier
10 11 12
Réponses
167
Affichages
18 K
re4
R
O
  • Question Question
XL 2019 Excel VBA - Condition selon le nom du fichier
Réponses
5
Affichages
2 K
Staple1600
Staple1600
A
  • Résolu(e)
XL 2016 Supprimer ligne si chaque valeur dans les colonnes =0
2
Réponses
16
Affichages
2 K
mapomme
mapomme
Retour