Nb de colonne non vide - NBVAL en VBA

Bonjour,

Je suis débutant mais j'arrive à me débrouille avec toutes les sources sur internet.

Mais je suis un peux embêter pour cette fois si.

Ma formule cherche dans la ligne 4 une valeur entre la 1er colonne et la 33eme colonne et il supprime la colonne qui dispose de ma valeur cherchée.

actuellement j'utilise cette valeur script :

Code:

---

1 2 3 4

Dim I As Integer For I = 33 To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete Next I

---

Pouvez-vous m'indiquer comment rendre la valeur 33 dynamique, c'est-à-dire:

Aujourd'hui je dispose de 33 colonnes dans mon fichier excel, voudrait si possible qu'une formule rende possible d’âcrement le 33 si je rajoute encore 60 colonnes dernières.

J'ai peur que la colonne qui dois être effacé passe au-delà de la colonne 33 un jour ou l'autre.

Je sais que sur Excel j'aurais fait =NBVAL sur la ligne 4 mais je sais pas comment le retranscrire sur VBA.

Merci de votre coup de main les amies.

Et toutes mes excuses mon mauvais français.

Filipe Da Silva

Bonjour Felipe, bonjour le forum,

Essaie comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Dim DC As Integer Dim I As Integer   DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete Next I End Sub

---

Si la ligne 1 d'une colonne est toujours renseignée, tu peux chercher sur la ligne 1 la dernière colonne utilisée :

Code:

---

1 2 3 4

Sub test() Dim derniere_colonne As Long derniere_colonne = ActiveSheet.Cells(1, Application.Columns.Count).End(xlToLeft).Column End Sub

---

Autre solution s'il n'y a rien à droite de tes colonnes

Code:

---

1 2 3 4

Sub test() Dim rg As Range: Set rg = ActiveSheet.UsedRange Dim derniere_colonne As Long: derniere_colonne = rg.Cells(rg.Cells.Count).Column End Sub

---

Citation:

---

Envoyé par Thautheme

Bonjour Felipe, bonjour le forum,

Essaie comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() Dim DC As Integer Dim I As Integer   DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete Next I End Sub

---

---

Perfecto Réponse Ultra rapide et 100 % fonctionnel :p

MERCI BEAUCOUP.

Petite question si j'ai le même bout de script derrière avec une valeur différente (plusieurs colonne à supprimé) je dois réintégré DC ou je dois juste le faire avant Next ?

Merci encore

Re,

Pas vraiment compris ta question... Mais puisque tu boucles de la dernière colonne utilisée à la première, tu ne dois connaître la dernière colonne DC qu'une seule fois, avant la boucle...

[Édition]
Arf ! En relisant j'ai enfin compris. Si tu relances une nouvelle boucle derrière, comme DC aura changé, il faudra la recalculer avec le même code que tu répèteras juste avant la nouvelle boucle...

Quel version est la plus correcte :
Solution 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macro1() Dim DC As Integer Dim I As Integer   DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete Next I Dim DC As Integer Dim I As Integer   DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "YYYY" Then Columns(I).Delete Next I End Sub

---

Ou cette solution 2 :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() Dim DC As Integer Dim I As Integer   DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete If Cells(4, I).Value = "YYYY" Then Columns(I).Delete Next I End Sub

---

J'ai plusieurs colonne à supprimé donc plusieurs argument à trouvé dans parmi toutes les colonnes.
Donc je cherche à simplifié au maximum, les scripte que je commence à comprendre.

[edition ] je pense pas utile de refaire un DC puisque la valeur sera inferieur donc au pire des cas il trouveras toujours ma colonne a l'inverse si je devais ajouté sa aurais pu posé probleme mais la non .

Re,

le bon code serait plutôt :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro1() Dim DC As Integer Dim I As Integer DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "XXXX" Then Columns(I).Delete Next I DC = Cells(4, Application.Columns.Count).End(xlToLeft).Column For I = DC To 1 Step -1 If Cells(4, I).Value = "YYYY" Then Columns(I).Delete Next I End Sub

---

Dans une procédure, la déclaration des variables se fait, par convention, au début et une seule fois...

Merci beaucoup cela a parfaitement marché.