Bonjour,
Avant toute chose, sachez que j'ai commencé à travailler pour la première fois de ma vie sous VBA ce matin. Je ne connais que très peu de fonctions et je ne suis pas non plus un grand habitué de la programmation, donc mon code est très loin d'être optimisé. Si vous avez le courage de me corriger sur l'optimisation en plus de mon problème, j'en serai ravi
Mon problème donc :
Je cherche à copier-coller la valeur d'une cellule d'une feuille nouvellement créée par ma macro, vers une cellule d'une feuille déjà existante.
J'ai déclaré trois variables String, je leur donne la valeur de la cellule correspondante, puis j'affecte la valeur de cette variable aux cellules dans lesquelles je veux les coller.
Pour la première variable tout marche très bien mais pour les deux autres, la variable semble vide.
Dans ma feuille "Liste projets", seule la valeur de Var1 est collée dans sa cellule de destination. Les Var2 et Var3 remplacent le contenu de la cellule de destination par du vide, je suppose donc qu'elles sont vides alors qu'elles devraient contenir respectivement le texte des cellules D4 et D5.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim Var1 As String Dim Var2 As String Dim Var3 As String Var1 = ActiveSheet.Range("D3").Name Var2 = ActiveSheet.Range("D4").Name Var3 = ActiveSheet.Range("D5").Name 'les cellules D3, D4 et D5 contiennent du texte au format "standard" Sheets("Liste projets").Select 'La feuille "Liste projets" est celle où se trouvent les cellules où je veux coller mes valeurs ActiveSheet.Range(Nom).Select 'La cellule "Nom" correspond à une autre variable déclarée et affectée en amont. Son emplacement est variable. ActiveCell.Offset(0, 1).Select ActiveCell.Value = Var1 ActiveCell.Offset(0, 1).Select ActiveCell.Value = Var2 ActiveCell.Offset(0, 1).Select ActiveCell.Value = Var3
Quelqu'un voit le problème ?
Partager