VBA et Alphabet

Bonjour tout le monde,

Débutante en VBA, je rencontre quelques difficultés dans mon code... En gros, dans mon tableau, dans la colonne E, j'ai une suite de lettre qui va de A à H, puis il y a des cellules vides, et enfin des cellules avec des calculs de poucentage. J'ai fais une macro qui permet de créer des feuilles pour chaque lettre mais la macro continue avec la cellule vide qui suit la cellule H.

Je cherche donc un Code qui me permet de créer des feuilles seulement quand une lettre est renseignée.

Voici mon Code VBA :

Code:

---

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 26 27 28 29 30 31 32

Option Explicit Public C As Long Public L As Long   Sub Cree_Feuilles()   Dim i As Integer Dim Feuille As Worksheet   Worksheets("CIRC CLT").Select L = Lastligne(1048576, 1) C = lLastCol(1, 16384)   For i = 14 To L + 2 If Not SheetExists(Worksheets("CIRC CLT").Cells(i, 5).Value) Then Set Feuille = Worksheets("Base") Worksheets("Base").Range("A1:E49").Copy Worksheets("CIRC CLT").Select Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = Worksheets("CIRC CLT").Cells(i, 5).Value ActiveSheet.Paste Application.CutCopyMode = False Cells(1, 5) = (Worksheets("CIRC CLT").Cells(i, 5).Value) Columns("A:A").ColumnWidth = 17.57 Columns("B:B").ColumnWidth = 14.14 Columns("C:C").ColumnWidth = 36.71 Columns("D").ColumnWidth = 17.86 Columns("E:E").ColumnWidth = 17.86 End If   Next i End Sub

---

De plus, j'aimerais si possible, que dans mon tableau il y ait une ligne vide entre chaque lettre, sans pour autant que cela arrête la macro. Est-ce possible? Si oui comment?

Merci d'avance pour vos réponses.

Bonjour,
Voir du côté des fonctions textes de VBA.

Par exemple pour savoir si une cellule est vide la fonction Len(String) renvoie 0
La fonction ASC permet aussi de connaître le code Ascii d'un caractère elle renvoie la valeur 65 pour la lettre A, 66 pour B, etc.
La fonction Left renvoie x caractères à gauche d'une chaîne, etc.

Bonjour Luciev, Philippe Tulliez,

Pour ma part, j'ai fait un (tout petit, pas beaucoup, je jure, je jure) peu de ménage dans ta macro.
Tu utilises le ".Copy", ".Paste" que je n'aime pas du tout, mais gardons le pour ton besoin.

Voici ce que je te propose :

Code:

---

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 26 27 28 29 30 31 32 33

Sub Cree_Feuilles() Dim i As Integer Dim Last_line As Integer Dim Feuille As Worksheet   With Worksheets("CIRC CLT") Last_line = .Columns(5).Find("*", , , , , xlPrevious).Row   For i = 14 To Last_line If Not IsNumeric(.Cells(i, 5).Value) And .Cells(i, 5).Value <> "" Then If Not SheetExists(.Cells(i, 5).Value) Then Worksheets("Base").Range("A1:E49").Copy   Set Feuille = Sheets.Add(After:=Sheets(Sheets.Count)) Feuille.Name = Worksheets("CIRC CLT").Cells(i, 5).Value Feuille.Paste   Application.CutCopyMode = False   With Feuille .Cells(1, 5) = (Worksheets("CIRC CLT").Cells(i, 5).Value) .Columns(1).ColumnWidth = 17.57 .Columns(2).ColumnWidth = 14.14 .Columns(3).ColumnWidth = 36.71 .Columns(4).ColumnWidth = 17.86 .Columns(5).ColumnWidth = 17.86 End With End If End If Next i End With   End Sub

---

Pour ma part, je passe plutôt par une condition comme celle-ci If Not IsNumeric(.Cells(i, 5).Value) And .Cells(i, 5).Value <> "" Then qui exclue les cellules numériques et vides.

N'hésite pas à revenir vers nous, si tu as d'avantage de questions. :ccool:

Cordialement,
Kimy

Merci beaucoup pour vos réponses!!! Ton Code fonctionne à merveille :) Mais pourrais-tu m'expliquer 2 petites choses stp :
- Que signifie ta ligne Lastligne
- et pourquoi mettre With Feuille?

Désolé, j'ai commencé VBA à Noël, donc je suis vraiment débutante et je pose plein de question pour essayer de me débrouiller seule par la suite ^^

Je reviendrais vers vous pour un autre tableau sur lequel j'ai des difficultés, si toute fois je n'ai pas trouvé de solution toute seule d'ici là ^^

Merci encore

Bonjour,

Citation:

---

Envoyé par Luciev

Merci beaucoup pour vos réponses!!! Ton Code fonctionne à merveille :) Mais pourrais-tu m'expliquer 2 petites choses stp :
- Que signifie ta ligne Lastligne

---

C'est pour rechercher la dernière ligne non-vide de la feuille, ou peut-être juste de la colonne E.

Citation:

---

- et pourquoi mettre With Feuille?

---

Ce n'est pas obligatoire, mais c'est intéressant pour accélérer un peu le codage. Mais c'est aussi très utile pour la lisibilité et un peu pour la compréhension du code; autant pour toi après x jours ou z semaines, que pour un autre développeur ou un autre lecteur de ton code.

Ainsi :

Code:

---

1 2 3 4 5 6 7 8

With Feuille .Cells(1, 5) = (Worksheets("CIRC CLT").Cells(i, 5).Value) .Columns(1).ColumnWidth = 17.57 .Columns(2).ColumnWidth = 14.14 .Columns(3).ColumnWidth = 36.71 .Columns(4).ColumnWidth = 17.86 .Columns(5).ColumnWidth = 17.86 End With

---

remplace ceci:

Code:

---

1 2 3 4 5 6

Feuille.Cells(1, 5) = (Worksheets("CIRC CLT").Cells(i, 5).Value) Feuille.Columns(1).ColumnWidth = 17.57 Feuille.Columns(2).ColumnWidth = 14.14 Feuille.Columns(3).ColumnWidth = 36.71 Feuille.Columns(4).ColumnWidth = 17.86 Feuille.Columns(5).ColumnWidth = 17.86

---

Bonjour Luciev, clementmarcotte,

Tout d'abord clementmarcotte, tu réponds parfaitement à la question.
Cependant, je dois me permettre de dire que je ne suis pas d'accord avec toi : c'est TRES utile pour la compréhension du code. :mrgreen:

J'ai commencé le VB avec les "With" et, peut-être que mon esprit est maintenant formaté, je pense que celui-ci permet d'avoir une excessivité de visibilité.
Ainsi, on sait sur quelle feuille on travaille sans jamais pouvoir se tromper.
De plus, ceci n'empêche pas d'aller piocher/écrire des infos sur d'autres feuilles en parallèle...

Code:

---

1 2 3 4

With Worksheets("Feuil1") .Range("A1") = "test feuille 1" 'j'écris dans ma Feuil1 Worksheets("Feuil2").Range("A1") = "test feuille 2" 'j'écris dans ma Feuil2 End With

---

Ainsi, je continue à l'utiliser à outrance car cela permet tout de même d’alléger énormément le code tout en étant sur de ne pas faire d'erreur de frappe en plaçant seulement un "." pour faire référence au "With" courant (même avec l'Option Explicit).

Voila, je ne pouvais m'empêcher de donner mon avis ! Le relou... :aie:

Cordialement,
Kimy

Bonjour,
J'ajouterais qu'en plus du bloc With...End With, l'utilisation de variable objet est un plus et permet une plus grande flexibilité au développeur lors de l'écriture et surtout pour la maintenance.

Attention aussi de préciser le classeur pour éviter de mauvaises surprises si plus d'un classeur est ouvert.

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub T1() Dim sht_1 As Worksheet, sht_2 As Worksheet With ThisWorkbook Set sht_1 = .Worksheets("Feuil1") Set sht_2 = .Worksheets("Feuil2") End With With sht_1 .Range("A1") = "test feuille 1" 'j'écris dans ma Feuil1 sht_2.Range("A1") = "test feuille 2" 'j'écris dans ma Feuil2 End With End Sub

---

L'utilisation de variables objets dimensionnées en utilisant les constantes énumérées à l'aide de l'instruction Enum permet encore plus de souplesse.
Exemple
Dans l'énumération ci-dessous Feuil1 et Feuil2 pourraient parfaitement être remplacées par Source et Target

Code:

---

1 2 3 4 5

Option Explicit Enum Liste Feuil1 = 1 Feuil2 = 2 End Enum

---

L'utilisation de variables objets dimensionnées, permet d'effectuer entre autres des opérations à l'aide de structures répétitives comme la boucle For...To...Next

Code:

---

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

Sub T1() Dim sht(1 To 2) As Worksheet, l As Byte With ThisWorkbook Set sht(Liste.Feuil1) = .Worksheets("Feuil1") Set sht(Liste.Feuil2) = .Worksheets("Feuil2") End With For l = 1 To 2: sht(l).Cells.Clear: Next ' Supprime les cellules With sht(Liste.Feuil1) .Range("A1") = "test feuille 1" 'j'écris dans ma Feuil1 sht(Liste.Feuil2).Range("A1") = "test feuille 2" 'j'écris dans ma Feuil2 End With End Sub

---

Deux tutoriels à lire pour en savoir plus sur les variables tableaux et sur les constantes énumérées

Bonjour Philippe Tulliez,

Le point que tu mentionnes concernant la notion de "variables objets dimensionnées" est quelque chose, cependant, que j'ai vraiment du mal à comprendre...
Peut-être que l'exemple ne s'y prête pas... mais, quand tu déclares ta liste :

Code:

---

1 2 3 4 5

Option Explicit Enum Liste Feuil1 = 1 Feuil2 = 2 End Enum

---

... je n'arrive pas à comprendre l’intérêt avec :

Code:

---

1 2 3 4

With ThisWorkbook Set sht(Liste.Feuil1) = .Worksheets("Feuil1") Set sht(Liste.Feuil2) = .Worksheets("Feuil2") End With

---

Pour moi, tu ajoutes "pour ajouter" ces variables alors qu'un "simple" :

Code:

---

1 2 3 4

With ThisWorkbook Set sht(1) = .Worksheets("Feuil1") Set sht(2) = .Worksheets("Feuil2") End With

---

... fait aussi bien l'affaire.

Comme je dis, peut-être que cet exemple ne s'y prête pas. Mais j'ai beaucoup de mal comprendre le principe...
J'étais en train d'écrire un "Peut-être verrais-je un..." associé d'un exemple... mais je n'arrive même pas à le formaliser tellement je trouve que cela complexifie les choses...

Quoi qu'il en soit, je reste tout ouie.

Cordialement,
Kimy

Bonjour,
Il est évident qu'en utilisant l'exemple initial cela ne semblait pas très parlant mais l'intérêt d'une constante énumérée est qu'il est plus simple à la lecture d'un programme de lire sht(Liste.Client) ou sht(Liste.Fournisseur) que sht(5) ou sht(4).
C'est la raison d'être d'une constante.
Les deux procédures ci-dessous sont plus parlantes et je crois que l'on comprendra aisément l'intérêt d'utiliser des constantes plutôt que leurs valeurs
Avec les constantes

Code:

---

1 2 3

If MsgBox("Suppression de fichier ?", vbCritical + vbDefaultButton2 + vbYesNo) = vbYes Then MsgBox "Suppression de fichier" End If

---

Avec leurs valeurs

Code:

---

1 2 3

If MsgBox("Suppression de fichier ?", 16 + 256 + 4) = 6 Then MsgBox "Suppression de fichier" End If

---

Pigé ! Et merci ! :ccool: