Probleme Programmation VBA
aude229
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je suis étudiante en DUT STID notre professeur nous à demander de compiler un programme et nous somme bloqué car nous ne trouvons l'erreur, notre professeur étant absent nous ne pouvons pas avancer dans notre travail. Quelqu'un arrivera a trouver cette erreur ?
Le programme :
Sub nommerDesPlagesAuto()
Dim iNbreDeColonnes As Integer
Dim iNombreDeLignes As Integer
Dim iColonne As Integer
Dim iHauteurColonne As Integer
Dim strTitreColonne As String
Worksheets("dataset").Activate 'On se positionne sur le jeu de donnees
iNbreDeColonnes = Range("A1").End(xlToRight).Column 'On compte le nombre de colonnes du jeu de données
iNombreDeLignes = Range("A1").End(xlDown).Row 'On le nombre de lignes du jeu de données
iHauteurColonne = iNombreDeLignes - 1 'Hauteur d'une colonne sans le titre
For iColonne = 1 To iNbreDeColonnes 'De la colonne 1 à la dernière...
strTitreColonne = Cells(1, iColonne).Value 'Je récupère le titre de la colonne active
Range(Cells(2, iColonne), Cells(iNombreDeLignes, iColonne)).Name = strTitreColonne 'Je donne comme nom à la plage de valeurs le titre de la colonne active
Next iColonne
End Sub
Merci !
Je suis étudiante en DUT STID notre professeur nous à demander de compiler un programme et nous somme bloqué car nous ne trouvons l'erreur, notre professeur étant absent nous ne pouvons pas avancer dans notre travail. Quelqu'un arrivera a trouver cette erreur ?
Le programme :
Sub nommerDesPlagesAuto()
Dim iNbreDeColonnes As Integer
Dim iNombreDeLignes As Integer
Dim iColonne As Integer
Dim iHauteurColonne As Integer
Dim strTitreColonne As String
Worksheets("dataset").Activate 'On se positionne sur le jeu de donnees
iNbreDeColonnes = Range("A1").End(xlToRight).Column 'On compte le nombre de colonnes du jeu de données
iNombreDeLignes = Range("A1").End(xlDown).Row 'On le nombre de lignes du jeu de données
iHauteurColonne = iNombreDeLignes - 1 'Hauteur d'une colonne sans le titre
For iColonne = 1 To iNbreDeColonnes 'De la colonne 1 à la dernière...
strTitreColonne = Cells(1, iColonne).Value 'Je récupère le titre de la colonne active
Range(Cells(2, iColonne), Cells(iNombreDeLignes, iColonne)).Name = strTitreColonne 'Je donne comme nom à la plage de valeurs le titre de la colonne active
Next iColonne
End Sub
Merci !
1 réponse
-
bonjour
un exemple pour nommer une plage
Option Explicit Const lideb = 3 Const codeb = 2 Const nbli = 5 Const nbco = 3 Const NomF = "Feuil1" Public Sub NommePlage() Dim plage As String Sheets(NomF).Select plage = "R" & lideb & "C" & codeb & ":R" & lideb + nbli - 1 & "C" & codeb + nbco - 1 plage = "=" & NomF & "!" & plage ActiveWorkbook.Names.Add Name:="plage", RefersTo:=plage End Sub
bonne suite
