Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Exemple de script VBA

Exemple de script VBA

16 réponses
Avatar
Dave
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai a
l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
LSteph
Bonjour Dave,
Exemple en remontant colonne A
si vide ou contient "CC"
on supprime toute la ligne.

'Dans un Module standard:
'****
Sub aavides()
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Or _
UCase(Cells(i, 1)) Like "*CC*" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub
'***
'lSteph

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai a
l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples



Avatar
Daniel
Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai a
l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples



Avatar
Dave
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi sert
Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai a
l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples







Avatar
jps
bonjour dave
daniel est encore au lit alors je prends le relais
la variable ligne définit la première ligne de la colonne A ayant une valeur
et ce en remontant depuis le fond de ta feuille, c'est à dire environ - 200
m....
et ensuite la boucle balaie la colonne depuis ligne jusqu'à la ligne 1 en
remontant une par une (Step -1)
bon, si je t'ai mal expliqué, daniel rectifiera
jps

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi sert
Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai
a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples











Avatar
LSteph
Bonjour Dave,
explication de :

Sub aavides()
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Or _
UCase(Cells(i, 1)) Like "*CC*" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub


Sub aavides()
Dim i As Long
'long et non integer qui limiterait le nombre de ligne en deçà de celui
d'une feuille

For i = [a65536].End(xlUp).Row To 1 Step -1 'Début de la boucle
'la ligne 65536 est la derniére de la feuille..ainsi comme t'a expliqué JPS
on remonte par pas(step) de -1
'donc -1 ligne à chaque fois

If IsEmpty(Cells(i, 1)) Or _ 'si la cellule est vide ou
UCase(Cells(i, 1)) Like "*CC*" Then
'si mise en majuscule(ucase) au cas où l'on puisse avoir diverses
expressions de "*cC*"
'ressemle à "*CC*" soit contient CC

Rows(i).EntireRow.Delete 'alors on la supprime la ligne entière
End If
Next 'suivante
End Sub


'lSteph

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi sert
Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai
a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples











Avatar
ChrisV
Salut JP,

Juste une seule chose peut être...
un petit commentaire sur la déclaration Ligne...
;-)


ChrisV


"jps" <enlevezd' a écrit dans le message de news:

bonjour dave
daniel est encore au lit alors je prends le relais
la variable ligne définit la première ligne de la colonne A ayant une
valeur et ce en remontant depuis le fond de ta feuille, c'est à dire
environ - 200 m....
et ensuite la boucle balaie la colonne depuis ligne jusqu'à la ligne 1 en
remontant une par une (Step -1)
bon, si je t'ai mal expliqué, daniel rectifiera
jps

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi sert
Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que j'ai
a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples














Avatar
jps
comprends pas, chris...
jps

"ChrisV" a écrit dans le message de
news:%23W$
Salut JP,

Juste une seule chose peut être...
un petit commentaire sur la déclaration Ligne...
;-)


ChrisV


"jps" <enlevezd' a écrit dans le message de news:

bonjour dave
daniel est encore au lit alors je prends le relais
la variable ligne définit la première ligne de la colonne A ayant une
valeur et ce en remontant depuis le fond de ta feuille, c'est à dire
environ - 200 m....
et ensuite la boucle balaie la colonne depuis ligne jusqu'à la ligne 1
en


remontant une par une (Step -1)
bon, si je t'ai mal expliqué, daniel rectifiera
jps

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi
sert



Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC"
Then




Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que
j'ai





a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples


















Avatar
jps
ach!!!!!!!!!!! LSteph!!!!!!!!!
je te surprends à répondre A COTE DE LA PLAQUE
dave demandait ce que signifiait :
Ligne = Range("A65536").End(xlUp).Row
qui figurait dans la proc de daniel et non dans la tienne dont la boucle
balaie depuis les abysses de la feuille..
héhé, l'est plus astucieux daniel...encore qu'une petite seconde, quoi
t-est-ce dans la vie d'un homme, je veux dire d'un jeune homme...
tu me feras quand même 100 lignes : "j'utilise une variable pour définir la
dernier ligne occupée d'un tableau"
jps

"LSteph" a écrit dans le message de
news:%
Bonjour Dave,
explication de :

Sub aavides()
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Or _
UCase(Cells(i, 1)) Like "*CC*" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub


Sub aavides()
Dim i As Long
'long et non integer qui limiterait le nombre de ligne en deçà de celui
d'une feuille

For i = [a65536].End(xlUp).Row To 1 Step -1 'Début de la boucle
'la ligne 65536 est la derniére de la feuille..ainsi comme t'a expliqué
JPS

on remonte par pas(step) de -1
'donc -1 ligne à chaque fois

If IsEmpty(Cells(i, 1)) Or _ 'si la cellule est vide ou
UCase(Cells(i, 1)) Like "*CC*" Then
'si mise en majuscule(ucase) au cas où l'on puisse avoir diverses
expressions de "*cC*"
'ressemle à "*CC*" soit contient CC

Rows(i).EntireRow.Delete 'alors on la supprime la ligne
entière

End If
Next 'suivante
End Sub


'lSteph

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi
sert


Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC" Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que
j'ai




a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples















Avatar
ChrisV
Ligne as Integer

Ça fait pas "ding ding ding" dans ta tête comme dirait Soya ! ;-)


ChrisV


"jps" a écrit dans le message de news:

comprends pas, chris...
jps

"ChrisV" a écrit dans le message de
news:%23W$
Salut JP,

Juste une seule chose peut être...
un petit commentaire sur la déclaration Ligne...
;-)


ChrisV


"jps" <enlevezd' a écrit dans le message de news:

bonjour dave
daniel est encore au lit alors je prends le relais
la variable ligne définit la première ligne de la colonne A ayant une
valeur et ce en remontant depuis le fond de ta feuille, c'est à dire
environ - 200 m....
et ensuite la boucle balaie la colonne depuis ligne jusqu'à la ligne 1
en


remontant une par une (Step -1)
bon, si je t'ai mal expliqué, daniel rectifiera
jps

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi
sert



Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC"
Then




Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que
j'ai





a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples





















Avatar
ChrisV
tu me feras quand même 100 lignes : "j'utilise une variable...


et: [a65536].End(xlUp).Row
il est là pour faire joli ?

Y'a pas les yeux en face des trous ce matin JP !
;-P


ChrisV


"jps" a écrit dans le message de news:
%23XdS%
ach!!!!!!!!!!! LSteph!!!!!!!!!
je te surprends à répondre A COTE DE LA PLAQUE
dave demandait ce que signifiait :
Ligne = Range("A65536").End(xlUp).Row
qui figurait dans la proc de daniel et non dans la tienne dont la boucle
balaie depuis les abysses de la feuille..
héhé, l'est plus astucieux daniel...encore qu'une petite seconde, quoi
t-est-ce dans la vie d'un homme, je veux dire d'un jeune homme...
tu me feras quand même 100 lignes : "j'utilise une variable pour définir
la
dernier ligne occupée d'un tableau"
jps

"LSteph" a écrit dans le message de
news:%
Bonjour Dave,
explication de :

Sub aavides()
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If IsEmpty(Cells(i, 1)) Or _
UCase(Cells(i, 1)) Like "*CC*" Then
Rows(i).EntireRow.Delete
End If
Next
End Sub


Sub aavides()
Dim i As Long
'long et non integer qui limiterait le nombre de ligne en deçà de celui
d'une feuille

For i = [a65536].End(xlUp).Row To 1 Step -1 'Début de la boucle
'la ligne 65536 est la derniére de la feuille..ainsi comme t'a expliqué
JPS

on remonte par pas(step) de -1
'donc -1 ligne à chaque fois

If IsEmpty(Cells(i, 1)) Or _ 'si la cellule est vide ou
UCase(Cells(i, 1)) Like "*CC*" Then
'si mise en majuscule(ucase) au cas où l'on puisse avoir diverses
expressions de "*cC*"
'ressemle à "*CC*" soit contient CC

Rows(i).EntireRow.Delete 'alors on la supprime la ligne
entière

End If
Next 'suivante
End Sub


'lSteph

"Dave" a écrit dans le message de news:
42bb9cd8$0$23307$
Merci a tous pour le script mais je n'arrive pas a comprendre a quoi
sert


Range("A65536").End(xlUp).Row

est-ce le total ligne dans ma cellule ?

"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie le code suivant, les valeurs sont censées être en colonne A :

Sub Test()
Dim c As Range, Plage As Range, Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row
For i = Ligne To 1 Step -1
If Range("A" & i).Value = "" Or Range("A" & i).Value = "CC"
Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

Cordialement.
Daniel

"Dave" a écrit dans le message de news:
42bb2c71$0$3105$
Bonjour,

J'ai un probléme que je n'arrive pas a résoudre
J'ai une feuille avec ce type d'element dans mes cellules
Je veux supprimer dans cet exemple toute les lignes ou il y a les
valeurs
CC et les lignes vides et je ne connais pas le nombre de ligne que
j'ai




a l'avance

AA
AA
CC
EE
CC
EE
J'ai rien ici
J'ai rien ici
J'ai rien ici
AA
CC
CC
J'ai rien ici
AA
AA

Merci pour vos exemples


















1 2