Probleme simple macro
MAINCENT
-
MAINCENT23 Messages postés 1 Statut Membre -
MAINCENT23 Messages postés 1 Statut Membre -
Bonjour,
Je cherche à faire une macro assez simple mais je ne trouves pas la solution.
Explication
Dans une cellule j'ai un numéro de semaine.
J'ai un tableau de 2 colonnes:
Semaine;nom
J'aimerai coller le numéro de la semaine a coté de chaque nom, sachant que la taille des lignes peut varier.
J'avais fais ce code mais il y a une ligne qui ne fonctionne pas, et je n'arrive pas à la corriger
Je cherche à faire une macro assez simple mais je ne trouves pas la solution.
Explication
Dans une cellule j'ai un numéro de semaine.
J'ai un tableau de 2 colonnes:
Semaine;nom
J'aimerai coller le numéro de la semaine a coté de chaque nom, sachant que la taille des lignes peut varier.
J'avais fais ce code mais il y a une ligne qui ne fonctionne pas, et je n'arrive pas à la corriger
A voir également:
- Probleme simple macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- 14 simple - Guide
- Simple pdf - Télécharger - PDF
- Simple ocr - Télécharger - Bureautique
- Simple file locker - Télécharger - Sécurité
1 réponse
Je vous montre un exemple pour que ce soit plus compréhensible.
En fait j'aimerai que la fin de ma colonne semaine prenne la valeur 6. Mais uniquement la fin de la collone.
Mon code :
Sub Macro2()
'
' Macro2 Macro
'
'
Range("D1").Select
Selection.Copy
Range("C3").Select
nb = Selection.Rows.Count
Selection.End(xlDown).Offset(1).Select
Range("B7").End(xlDown):("B7").End(xlDown).Offset(3).Select
Range("A7").Select
ActiveSheet.Paste
End Sub
En fait j'aimerai que la fin de ma colonne semaine prenne la valeur 6. Mais uniquement la fin de la collone.
Mon code :
Sub Macro2()
'
' Macro2 Macro
'
'
Range("D1").Select
Selection.Copy
Range("C3").Select
nb = Selection.Rows.Count
Selection.End(xlDown).Offset(1).Select
Range("B7").End(xlDown):("B7").End(xlDown).Offset(3).Select
Range("A7").Select
ActiveSheet.Paste
End Sub
