Bonjour a tous,
Je transfert les infos dans une ligne (33) d'une feuille "Notation DI" via un userform
Je veux transferer cette ligne sur une feuille "Compétence Sud-est" d'un même classeur, à partir de la ligne A40 sous forme de base de donnée incrémentation à la dernière ligne vide
J'ai fais le code si dessous qui ne marche pas bien évidement
Pouvez vous m'aider
J'ai deux solution copier/coller la ligne entière soit cellule par cellule
J'ai beaucoup de calcul a faire et je ne sais pas encore comment je vais gérer les formule sous excel sur mes 2 feuilles alors ... si dessous j'ai tenté celule par célule
Merci beaucoup de votre aide
Poups
Je transfert les infos dans une ligne (33) d'une feuille "Notation DI" via un userform
Je veux transferer cette ligne sur une feuille "Compétence Sud-est" d'un même classeur, à partir de la ligne A40 sous forme de base de donnée incrémentation à la dernière ligne vide
J'ai fais le code si dessous qui ne marche pas bien évidement
Pouvez vous m'aider
J'ai deux solution copier/coller la ligne entière soit cellule par cellule
J'ai beaucoup de calcul a faire et je ne sais pas encore comment je vais gérer les formule sous excel sur mes 2 feuilles alors ... si dessous j'ai tenté celule par célule
HTML:
sub essais()
Dim WBDest As Integer
WBDest = Sheets("compétences Sud-Est").Range("A65536").End(xlUp).Row(44) + 1
Worksheets("Notation DI").Cells(31, 1).EntireRow.Copy
Worksheets("compétences Sud-Est").Cells(WBDest, 1).Value = Sheets("Notation DI").Range("A31").Value
Worksheets("compétences Sud-Est").Cells(WBDest, 2).Value = Sheets("Notation DI").Range("B31").Value
Worksheets("compétences Sud-Est").Cells(WBDest, 3).Value = Sheets("Notation DI").Range("C31").Value
Worksheets("compétences Sud-Est").Cells(WBDest, 4).Value = Sheets("Notation DI").Range("D31").Value
Worksheets("compétences Sud-Est").Cells(WBDest, 5).Value = Sheets("Notation DI").Range("E31").Value
end sub
Merci beaucoup de votre aide
Poups