bonjour à tous
j'essaie de faire une macro qui me permet de créer une nouvelle colonne pour le mois en cours en copiant la colonne à gauche (celle du mois précédent). puis je fais un rechercheV sur la cellule C de la ligne même ligne, sur la colonne G d'une autre feuille.
voici mon code:
Et comme d'hab' j'ai une erreur 1004 erreur défini par l'application ou par l'objet sur la dernière ligne de code.
Pouvez-vous me dire ou cela bloque car là je ne comprends pas je veux juste affecter une formule a une cellule, pour ensuite l'étendre a tout mon tableau
j'essaie de faire une macro qui me permet de créer une nouvelle colonne pour le mois en cours en copiant la colonne à gauche (celle du mois précédent). puis je fais un rechercheV sur la cellule C de la ligne même ligne, sur la colonne G d'une autre feuille.
voici mon code:
Code:
Function MAJDispo()
'fonction pour l'onglet Dispo CR1
'recherche de la dernière colonne non vide
derniereColonne = Worksheets("Dispo CR1").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
nouvelleColonne = derniereColonne + 1
'l'activation de l'onglet est nécessaire pour la bonne éxecution
Worksheets("Dispo CR1").Activate
'copie de la dernière colonne à coté
Worksheets("Dispo CR1").Range(Cells(1, derniereColonne), Cells(60, derniereColonne)).Copy Worksheets("Dispo CR1").Cells(1, nouvelleColonne)
'renommage au mois en cour
Worksheets("Dispo CR1").Cells(1, nouvelleColonne).Value = Month(Date) & "/01/" & Year(Date)
'recherche de la taille du tableau qui sert de matrice au rechercheV
derniereLigne = Worksheets("log_Dispo").Range("A1").End(xlDown).Address
derniereLigne = Worksheets("log_Dispo").Range(derniereLigne).Row
derniereCol = Worksheets("log_Dispo").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Worksheets("Dispo CR1").Range(Cells(2, nouvelleColonne)).Formula = "=RECHERCHEV($C2;log_Dispo!$A$1:" &_ Cells(derniereLigne, derniereCol).Address & ";7;FAUX)"
Et comme d'hab' j'ai une erreur 1004 erreur défini par l'application ou par l'objet sur la dernière ligne de code.
Pouvez-vous me dire ou cela bloque car là je ne comprends pas je veux juste affecter une formule a une cellule, pour ensuite l'étendre a tout mon tableau