Copier en valeurs une plage sous une autre plage Résolu/Fermé

Question

Bonjour, 

Je débute sous VBA, et après avoir un peu testé par-ci par-là des combines, j'aimerais en apprendre encore plus. 

Je me casse la tête en ce moment pour créer une macro qui copie une plage d'une feuille sur une autre feuille (copier/coller en valeurs) mais en-dessous de la plage précédente occupée. C'est pour créer un historique des données.
 
J'ai repéré des macros qui me conviennent bien sur le forum mais ne font pas exactement ce que je veux. Pouvez m'aider en me présentant et m'expliquant un code? Vu que je débute avec VBA je ne connais même pas le language VBA :S


Voici sur quoi je me base tout essayant de l'adapter (merci ccm81).

Public Sub BC1()  Dim i As Integer, derlig As Long  With Sheets("feuil1")    For i = 1 To 10      If Not IsEmpty(.Range("F" & i)) And .Range("B" & i).Value = "" And .Range("C" & i).Value = "" Then        derlig = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1        .Rows(i).Copy Sheets("feuil2").Range("A" & i)      End If    Next i  End With  End Sub
 



Je vous remercie pour votre aide, 



Koala


Configuration: Windows 7 / Internet Explorer 9.0

pijaku · Answer

Bonjour,

Voici ton code commenté et corrigé :
Public Sub BC1()  
'variables
Dim i As Integer, derlig As Long  
'ici on travaille dans la feuille Feuil1 => feuille concernée par le "copié"
With Sheets("feuil1")  
  'concerne les lignes de la Feuil1 de 1 à 10
  For i = 1 To 10  
    'si, dans ces lignes F n'est pas vide, B = "" (égale rien), C = "" Alors
    If Not IsEmpty(.Range("F" & i)) And .Range("B" & i).Value = "" And .Range("C" & i).Value = "" Then  
      'derlig est une variable qui va contenir le numéro de la première ligne vide de la feuil2 colonne A (là ou on va coller)
      derlig = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1  
      'Copié - collé
      .Rows(i).Copy Sheets("feuil2").Range("A" & derlig)  'j'ai remplacé i par derlig (ou coller les données)
    End If  
  Next i  
End With  
End Sub

Koalacid · Answer

Yes, merci! 

Je vais tester ça cet après-midi.

En tout cas c'est devenu bien plus clair comme ça.


C'est toujours mieux de savoir exactement ce qu'on est entrain de coder plutôt que de bêtement recopier! ^^



Koala

Koalacid · Answer

Heelo,

Je m'excuse du retard, j'ai été assez pris ces derniers temps.

Lorsque j'exécute la macro, elle me renvoie un message sur la ligen de code qui ne fonctionne pas (surlignée en jaune). 

Cette partie:

derlig = Sheets("feuil2").Range("A65536").End(xlUp).Row + 1

J'ai pourtant changé le nom de la feuil2 en Histo.

Je ne vois pas ce qu'il y a d'incorrect.

Merci encore

Cordialement,

Copier en valeurs une plage sous une autre plage

3 réponses

Discussions similaires