Génération de Tables en VBA par ChatGPT
>_Prompt utilisé : Donne moi un code VBA pour Excel qui permet de créer dans le classeur actuel une nouvelle feuille nommée « Ventes » contenant une table de données de 1000 lignes mise sous forme de tableau avec le nom « Ventes » comme Nom de tableau, contenant des ventes fictives avec une colonne nommée « Date » au format date courte contenant des dates aléatoires avec doublons de 2020 à 2023, une colonne nommée « IdClient » contenant des chiffres aléatoires avec doublons de 1 à 50, une colonne nommée « IdArticle » contenant des chiffres aléatoires avec doublons de 1 à 100, et enfin une colonne nommée « Quantité » contenant des chiffres aléatoires avec doublons de 1 à 10. Puis dans une nouvelle feuille nommée « Clients » du même classeur une table de données mise sous forme de tableau avec le nom « Clients » comme Nom de tableau, contenant la liste des clients avec une Colonne nommée « IdClient » contenant les chiffres de 1 à 50 classés par ordre croissant sans doublon, une colonne nommée « Nom Client » sans doublon contenant des noms aléatoires d’un seul mot de 5 à 10 lettres commençant par une majuscule et une colonne nommée « Pays » avec doublons contenant des noms de pays du monde pris au hasard parmi 10 pays. Enfin, dans une nouvelle feuille nommée « Articles » du même classeur une table de données mise sous forme de tableau avec le nom « Articles » comme Nom de tableau, contenant la liste des articles avec une Colonne nommée « IdArticle » contenant les chiffres de 1 à 100 classés par ordre croissant sans doublon, une colonne nommée « Famille Article » sans doublon contenant des noms aléatoires d’un seul mot commençant par une majuscule et désignant si possible des produits technologiques pris parmi 10, et une colonne nommée « Prix Article » au format Excel Comptabilité à 2 virgules contenant des chiffres aléatoires avec 2 virgules allant de 50 à 500 euros.
>_IA interrogée : ChatGPT 3.5
Voici le code VBA qui répond à vos spécifications :
Sub CreerFeuillesDonnees()
Dim wsVentes As Worksheet
Dim wsClients As Worksheet
Dim wsArticles As Worksheet
Dim i As Long
Dim j As Long
Dim k As Long
Dim pays() As String
Dim famillesArticles() As String
Dim randDate As Double
' Créer la feuille "Ventes"
Set wsVentes = Sheets.Add(After:=Sheets(Sheets.Count))
wsVentes.Name = "Ventes"
' Ajouter l'en-tête du tableau "Ventes"
wsVentes.Range("A1:D1").Value = Array("Date", "IdClient", "IdArticle", "Quantité")
' Remplir le tableau "Ventes" avec des données aléatoires
For i = 2 To 1001
' Générer une date aléatoire entre 2020 et 2023
randDate = WorksheetFunction.RandBetween(DateValue("2020-01-01"), DateValue("2023-12-31"))
wsVentes.Cells(i, 1).Value = randDate
' Générer des chiffres aléatoires avec doublons
wsVentes.Cells(i, 2).Value = WorksheetFunction.RandBetween(1, 50)
wsVentes.Cells(i, 3).Value = WorksheetFunction.RandBetween(1, 100)
wsVentes.Cells(i, 4).Value = WorksheetFunction.RandBetween(1, 10)
Next i
' Mettre le tableau "Ventes" sous forme de tableau
wsVentes.ListObjects.Add(xlSrcRange, wsVentes.Range("A1:D1001"), , xlYes).Name = "Ventes"
' Créer la feuille "Clients"
Set wsClients = Sheets.Add(After:=Sheets(Sheets.Count))
wsClients.Name = "Clients"
' Ajouter l'en-tête du tableau "Clients"
wsClients.Range("A1:C1").Value = Array("IdClient", "Nom Client", "Pays")
' Remplir le tableau "Clients" avec des données aléatoires
For j = 2 To 51
wsClients.Cells(j, 1).Value = j ' IdClient sans doublon
wsClients.Cells(j, 2).Value = NomAleatoire() ' Nom Client aléatoire
Next j
' Liste de pays aléatoires pour la colonne "Pays"
pays = Split("France,USA,Canada,Allemagne,Japon,Chine,Brésil,Australie,Inde,Russie", ",")
' Remplir la colonne "Pays" avec des données aléatoires
For j = 2 To 51
wsClients.Cells(j, 3).Value = pays(Application.WorksheetFunction.RandBetween(0, UBound(pays)))
Next j
' Trier la feuille "Clients" par ordre croissant sur la colonne "IdClient"
wsClients.Sort.SortFields.Clear
wsClients.Sort.SortFields.Add Key:=wsClients.Range("A2:A51"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With wsClients.Sort
.SetRange wsClients.Range("A1:C51")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Mettre le tableau "Clients" sous forme de tableau
wsClients.ListObjects.Add(xlSrcRange, wsClients.Range("A1:C51"), , xlYes).Name = "Clients"
' Créer la feuille "Articles"
Set wsArticles = Sheets.Add(After:=Sheets(Sheets.Count))
wsArticles.Name = "Articles"
' Ajouter l'en-tête du tableau "Articles"
wsArticles.Range("A1:C1").Value = Array("IdArticle", "Famille Article", "Prix Article")
' Remplir le tableau "Articles" avec des données aléatoires
famillesArticles = Split("Ordinateurs,Téléphones,Tablettes,Imprimantes,Casques,Appareils photos,Enceintes,Écouteurs,Moniteurs,Claviers", ",")
For k = 2 To 101
wsArticles.Cells(k, 1).Value = k ' IdArticle sans doublon
wsArticles.Cells(k, 2).Value = famillesArticles(Application.WorksheetFunction.RandBetween(0, UBound(famillesArticles)))
wsArticles.Cells(k, 3).Value = Format(WorksheetFunction.RandBetween(50, 500) + WorksheetFunction.RandBetween(0, 99) / 100, "0.00") ' Prix Article avec 2 virgules
Next k
' Mettre le tableau "Articles" sous forme de tableau
wsArticles.ListObjects.Add(xlSrcRange, wsArticles.Range("A1:C101"), , xlYes).Name = "Articles"
End Sub
Function NomAleatoire() As String
' Générer un nom aléatoire de 10 lettres commençant par une majuscule
Dim voyelles As String
Dim consonnes As String
Dim nom As String
Dim i As Integer
voyelles = "AEIOU"
consonnes = "MLRST"
nom = UCase(Mid(consonnes, Int((Len(consonnes) * Rnd) + 1), 1))
For i = 1 To 4
nom = nom & Mid(voyelles, Int((Len(voyelles) * Rnd) + 1), 1)
nom = nom & Mid(consonnes, Int((Len(consonnes) * Rnd) + 1), 1)
Next i
NomAleatoire = nom
End Function
Ce code crée les feuilles « Ventes », « Clients » et « Articles » avec les données spécifiées. N’hésitez pas à ajuster selon vos besoins.
>_Prompt utilisé : La colonne IdClient de la table Clients commence au chiffre 2 et finit au chiffre 51 et je voulais qu’elle commence au chiffre 1 et qu’elle finisse au chiffre 50. Idem pour la colonne IdArticles de la table Articles qui commence à 2 et se termine à 101 alors que je voulais qu’elle commence à 1 et se termine à 100.
Je m’excuse pour la confusion. Voici le code VBA modifié pour que la colonne « IdClient » de la table « Clients » commence à 1 et se termine à 50, et que la colonne « IdArticles » de la table « Articles » commence à 1 et se termine à 100 :
Sub CreerFeuillesDonnees()
Dim wsVentes As Worksheet
Dim wsClients As Worksheet
Dim wsArticles As Worksheet
Dim i As Long
Dim j As Long
Dim k As Long
Dim pays() As String
Dim famillesArticles() As String
Dim randDate As Double
' Créer la feuille "Ventes"
Set wsVentes = Sheets.Add(After:=Sheets(Sheets.Count))
wsVentes.Name = "Ventes"
' Ajouter l'en-tête du tableau "Ventes"
wsVentes.Range("A1:D1").Value = Array("Date", "IdClient", "IdArticle", "Quantité")
' Remplir le tableau "Ventes" avec des données aléatoires
For i = 2 To 1001
' Générer une date aléatoire entre 2020 et 2023
randDate = WorksheetFunction.RandBetween(DateValue("2020-01-01"), DateValue("2023-12-31"))
wsVentes.Cells(i, 1).Value = randDate
' Générer des chiffres aléatoires avec doublons
wsVentes.Cells(i, 2).Value = WorksheetFunction.RandBetween(1, 50)
wsVentes.Cells(i, 3).Value = WorksheetFunction.RandBetween(1, 100)
wsVentes.Cells(i, 4).Value = WorksheetFunction.RandBetween(1, 10)
Next i
' Mettre le tableau "Ventes" sous forme de tableau
wsVentes.ListObjects.Add(xlSrcRange, wsVentes.Range("A1:D1001"), , xlYes).Name = "Ventes"
' Créer la feuille "Clients"
Set wsClients = Sheets.Add(After:=Sheets(Sheets.Count))
wsClients.Name = "Clients"
' Ajouter l'en-tête du tableau "Clients"
wsClients.Range("A1:C1").Value = Array("IdClient", "Nom Client", "Pays")
' Remplir le tableau "Clients" avec des données aléatoires
For j = 2 To 51
wsClients.Cells(j, 1).Value = j - 1 ' IdClient sans doublon, commençant à 1
wsClients.Cells(j, 2).Value = NomAleatoire() ' Nom Client aléatoire
Next j
' Liste de pays aléatoires pour la colonne "Pays"
pays = Split("France,USA,Canada,Allemagne,Japon,Chine,Brésil,Australie,Inde,Russie", ",")
' Remplir la colonne "Pays" avec des données aléatoires
For j = 2 To 51
wsClients.Cells(j, 3).Value = pays(Application.WorksheetFunction.RandBetween(0, UBound(pays)))
Next j
' Trier la feuille "Clients" par ordre croissant sur la colonne "IdClient"
wsClients.Sort.SortFields.Clear
wsClients.Sort.SortFields.Add Key:=wsClients.Range("A2:A51"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With wsClients.Sort
.SetRange wsClients.Range("A1:C51")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Mettre le tableau "Clients" sous forme de tableau
wsClients.ListObjects.Add(xlSrcRange, wsClients.Range("A1:C51"), , xlYes).Name = "Clients"
' Créer la feuille "Articles"
Set wsArticles = Sheets.Add(After:=Sheets(Sheets.Count))
wsArticles.Name = "Articles"
' Ajouter l'en-tête du tableau "Articles"
wsArticles.Range("A1:C1").Value = Array("IdArticle", "Famille Article", "Prix Article")
' Remplir le tableau "Articles" avec des données aléatoires
famillesArticles = Split("Ordinateurs,Téléphones,Tablettes,Imprimantes,Casques,Appareils photos,Enceintes,Écouteurs,Moniteurs,Claviers", ",")
For k = 2 To 101
wsArticles.Cells(k, 1).Value = k - 1 ' IdArticle sans doublon, commençant à 1
wsArticles.Cells(k, 2).Value = famillesArticles(Application.WorksheetFunction.RandBetween(0, UBound(famillesArticles)))
wsArticles.Cells(k, 3).Value = Format(WorksheetFunction.RandBetween(50, 500) + WorksheetFunction.RandBetween(0, 99) / 100, "0.00") ' Prix Article avec 2 virgules
Next k
' Mettre le tableau "Articles" sous forme de tableau
wsArticles.ListObjects.Add(xlSrcRange, wsArticles.Range("A1:C101"), , xlYes).Name = "Articles"
End Sub
Function NomAleatoire() As String
' Générer un nom aléatoire de 10 lettres commençant par une majuscule
Dim voyelles As String
Dim consonnes As String
Dim nom As String
Dim i As Integer
voyelles = "AEIOU"
consonnes = "MLRST"
nom = UCase(Mid(consonnes, Int((Len(consonnes) * Rnd) + 1), 1))
For i = 1 To 4
nom = nom & Mid(voyelles, Int((Len(voyelles) * Rnd) + 1), 1)
nom = nom & Mid(consonnes, Int((Len(consonnes) * Rnd) + 1), 1)
Next i
NomAleatoire = nom
End Function
Testez vous-même à partir d’un nouveau classeur dans Excel !
Voir la suite avec Analyse de Tables avec ChatGPT sur le site >_Bon_Prompt.com.
