Mettre à la suite (VBA) Résolu

Question

Bonjour, 

Auriez-vous l'oeil pour déterminer comment faire en sorte que les lignes s'incrivant sur la feuille archive_cdd_fincontrat se mettent à la suite et n'écrase pas les donnéees precédentes ?

Il s'agit certainement de modifier la ligne en gras mais je n'y arrive pas...

Merci d'avance


Private Sub CommandButton1_Click()
  'Mise a jour Colonne ICP
  With Worksheets("CDD")
    .Range("O" & Ligne_Select).Value = TextBox2.Value
    
    'Premiere cellule vide en partant d'une cellule
    PCVideA = Worksheets("CDD_Fin_de_Contrat").Columns(1).Find("", Range("A30").End(xlUp), , , xlByRows).Row
    
    'Copie ligne dans Archive_CDD_Fin_de_Contrat
    .Rows(Ligne_Select & ":" & Ligne_Select).Copy Worksheets("Archive_CDD_Fin_de_Contrat").Range("A" & PCVideA)
    
    'Supprime ligne dans CDD
    .Rows(Ligne_Select & ":" & Ligne_Select).Delete xlUp
    
  End With

Configuration: Windows 7 / Firefox 3.6.13

H0gS · Answer

Bonjour Co_nexion,

Il y a longtemps que je n'ai pas travailler avec VBA, mais je pense avoir la réponse à ta question...

Actuellement tu écrases le contenu de la cellule car tu copies un nouveau contenu. Essaies plutôt d'ajouter ton contenu à l'ancien.

Comme mentionné plus tôt, je ne me rappelle plus de la syntaxe (probablement qu'un confrère m'aidera), mais sans doute comprendras-tu malgré tout ce qu'il faudra modifier.

Cellule = Cellule + "Contenu à ajouter"

Voilà, ce qui faudrait faire.

Tu dois écrire dans la cellule son ancien contenu (en la lisant) et en ajoutant le nouveau contenu.

Bonne chance!

michel_m · Answer

bonjour
essaies cette syntaxe à adapter à tes feuilles
With Sheets("feuil2")
     Rows(.Columns("A").Find("", , , , , xlPrevious).Row) = Sheets("feuil1").Rows(ligne_select).Value
End With

Co_nexion · Answer

Bonjour à tous

Merci de vous intéresser à mon problème.

J'ai essayer ta formule michel en la mettant à la suite de mon code et en l'adaptant cependant cela ne fonctionne pas et la première fonction prime. Cependant si j'efface la première la ligne disparait...

Et Hogs, je ne vois pas très bien comment mettre en forme l'idée que tu me suggère...

Bref je suis toujours bloqué...

Mettre à la suite (VBA)

3 réponses

Discussions similaires

Newsletters