question vba excel urgente Résolu/Fermé

Question

Bonjour, 
je veux faire une recopie des données de la feuille BASE vers la feuille SOUS_TOTAUX (titres de colonnes inclus) mais en ne prenant pas en compte les lignes de CA <=100 (colonne D) svp aidez moi ça me facilitera mon travail enormement.
j'ai essayé mais je n'arrive pas à recopier que la première ligne

Configuration: Windows 7 / Safari 536.5

drumjoel · Answer

bonjour, 
il me semble que c'est un truc dans le genre 
 Sub Macro1()
'
' Macro1 Macro
'
Worksheets(BASE).Activate
Worksheets(BASE).Cells.Select
Selection.Copy
Worksheets(SOUS_TOTAUX).Activate
Worksheets(SOUS_TOTAUX).Cells.Select
Worksheets(SOUS_TOTAUX).Paste
Worksheets(SOUS_TOTAUX).Range("d1", "d100").Select
Selection.Clear
'
End Sub

ccm81 · Answer

bonjour

une proposition ne recopiant que les lignes où la colonne CA > 100

Option Explicit

Const FB = "BASE"
Const lidebB = 1
Const coCAB = 3     ' colonne CA
Const FS = "SOUS_TOTAUX"

Public Sub transfert()
Dim liB As Long, lifinB As Long
Dim liS As Long
lifinB = Sheets(FB).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(FB).Cells(lidebB, 1).EntireRow.Copy Sheets(FS).Cells(1, 1)
liS = 2
For liB = lidebB + 1 To lifinB
  If Sheets(FB).Cells(liB, coCAB).Value > 100 Then
    Sheets(FB).Cells(liB, 1).EntireRow.Copy Sheets(FS).Cells(liS, 1)
    liS = liS + 1
  End If
Next liB
End Sub
bonne suite

ccm81 · Answer

1.
lifinB = Sheets(FB).Cells(Rows.Count, 1).End(xlUp).Row 
récupère dans lifinB le numéro de la dernière ligne non vide colonne 1, de la feuille FB 

2. 
Sheets(FB).Cells(lidebB, 1).EntireRow.Copy Sheets(FS).Cells(1, 1)
copie toute la ligne lidebB (soit ligne 1) de la feuille FB dans la feuille FS à parir de la cellule A1

bonne suite

Question vba excel urgente

3 réponses