Bonjour,
Actuellement mon code utilise des variables nom, prénom, état, pour remplir des champs depuis plusieurs macro.
Mon bute serais de boucler sur une liste d'utilisateur, pour automatisé les taches. Actuellement je suis obligé de modifier le nom de l'utilisateur avant d’exécuter ma série de macro.
En commentaire mon ancien code.
Mon code n'ai pas fonctionnelle je pense...
Je voudrais dans un premier temps rechercher la dernière ligne contenant du texte:
A améliorer =>
Actuellement mon code utilise des variables nom, prénom, état, pour remplir des champs depuis plusieurs macro.
Mon bute serais de boucler sur une liste d'utilisateur, pour automatisé les taches. Actuellement je suis obligé de modifier le nom de l'utilisateur avant d’exécuter ma série de macro.
En commentaire mon ancien code.
Mon code n'ai pas fonctionnelle je pense...
Je voudrais dans un premier temps rechercher la dernière ligne contenant du texte:
A améliorer =>
Code:
derniere_ligne = Range("H10").End(xlDown).Row 'Dernière ligne de la base de données
Code:
'Ici on récupère les variables dans la feuille Adminitration
With Sheets("Administration")
' Créer le nom du nouveau classeur
' Nom = .Range("H10")
' Prenom = .Range("I10")
' Etat = .Range("J10")
' Annee = .Range("D12")
' AncienneVersion = .Range("D23")
' Version = .Range("D25")
' NomFichier = "Feuille d'heure " & Prenom & " " & Nom & " " & Annee & " " & Version & ".xls"
' End With
'''''' Nouvelle fonction
derniere_ligne = Range("H10").End(xlDown).Row 'Dernière ligne de la base de données
Dim tab_utilisateur(), x As Integer, h As Integer, i As Integer, j As Integer
ReDim tab_utilisateur(derniere_ligne - 10, 2)
'Enregistrement des valeurs dans le tableau
For x = 0 To derniere_ligne - 2
tab_utilisateur(x, 0) = Range("H" & i + 10)
tab_utilisateur(x, 1) = Range("I" & i + 10)
tab_utilisateur(x, 2) = Range("J" & i + 10)
Next
'Utilisation des données du tableau
For h = 1 To UBound(tab_utilisateur, 1) 'boucle sur la 1ere dimension
For i = 1 To UBound(tab_utilisateur, 2) 'boucle sur la 2eme dimension
For j = 1 To UBound(tab_utilisateur, 2) 'boucle sur la 3eme dimension
'Alimente les éléments du tableaux
tab_utilisateur(h, i, j) = h & i & j
'Lit les éléments du tableau
Debug.Print tab_utilisateur(h, i, j)
' Ici boucler sur les fonctions à réaliser
Next j
Next i
Next h
'''''' Fin de la nouvelle fonction