grouper - info en endx1up - 6 lignes

[VBA_DEAD]

bonjour

j`ai une macro de regourpement et j`ai un blocage
je n`arrive pas a capter une info qui est des la denriere ligne de la colonne C - l=6 lignes (la devise ds mon exemple)
pouvez vous me dire comment resoudre mon probleme?
j`ai colle un exemple pour information

merci a vous.
BVA_DEAD


Sub Regroupe()
Dim O As Worksheet, Dest As Worksheet
Dim Nom As String, Adresse As String
Dim Code As String, Ville As String
Dim Cl As Workbook 'déclare la variable Cl
Dim x As Integer

ThisWorkbook.Activate

Sheets.Add before:=Sheets(1)
With ActiveSheet
.Name = "Clients"
[A1] = "Lists of Clients"
End With


Nom = "A6"
Code = "A8"
Set Dest = Sheets("Clients")



x = 1
For Each O In ThisWorkbook.Sheets

Dest.Cells(x, 1).Value = O.Range(Nom).Value
Dest.Cells(x, 3).Value = O.Range("a8").Value
Dest.Cells(x, 2) = Sheets(x).Name
Dest.Cells(x, 5).Value = O.Range("c65536").End(xlUp).Value
Dest.Cells(x, 5).Value = O.Range("c65536").End(xlUp).row-6.Value??
Dest.Cells(x, 7).Value = O.Range("g65536").End(xlUp).Value

x = x + 1

Next O
End Sub

 

[tototiti2008]

Re : grouper - info en endx1up - 6 lignes

Bonjour VBA Dead,

ben comme ça, je dirais :


Dest.Cells(x, 6).Value = O.range("C" & O.Range("c65536").End(xlUp).row-6).Value

 

[VBA_DEAD]

Re : grouper - info en endx1up - 6 lignes

Bonjour tototiti2008,

Merci de te pencher sur mon souci
j`essaie ta solution mais ca plante
"methode range of object_worksheet failed

ca marche pour toi quand tu utilises mon file?

merci pour ton aide

vba_dead

 

[tototiti2008]

Re : grouper - info en endx1up - 6 lignes

oui, mais il ne doit pas traiter la feuille Clients...

For Each O In ThisWorkbook.Sheets
If O.Name <> "Clients" Then
        Dest.Cells(x, 1).Value = O.Range(Nom).Value
        Dest.Cells(x, 3).Value = O.Range("a8").Value
        Dest.Cells(x, 2) = Sheets(x).Name
        Dest.Cells(x, 5).Value = O.Range("c65536").End(xlUp).Value
        Dest.Cells(x, 6).Value = O.Range("C" & O.Range("c65536").End(xlUp).Row - 6).Value
        Dest.Cells(x, 7).Value = O.Range("g65536").End(xlUp).Value
        
        x = x + 1
End If
Next O

 

[VBA_DEAD]

Re : grouper - info en endx1up - 6 lignes

re

je comprends pas.

ca t`ennuie de coller le file avec la macro?
ca plante toujours au meme endroit

merci

Sub Regroupe()
Dim O As Worksheet, Dest As Worksheet
Dim Nom As String, Adresse As String
Dim Code As String, Ville As String
Dim Cl As Workbook 'déclare la variable Cl
Dim x As Integer

ThisWorkbook.Activate

'Sheets.Add before:=Sheets(1)
'With ActiveSheet
'.Name = "Clients"
'[A1] = "Lists of Clients"
'End With


Nom = "A6"
'Code = "A8"
Set Dest = Sheets("Clients")



x = 1
For Each O In ThisWorkbook.Sheets
If O.Name <> "Clients" Then
Dest.Cells(x, 1).Value = O.Range(Nom).Value
Dest.Cells(x, 3).Value = O.Range("a8").Value
Dest.Cells(x, 2) = Sheets(x).Name
Dest.Cells(x, 5).Value = O.Range("c65536").End(xlUp).Value
Dest.Cells(x, 6).Value = O.Range("C" & O.Range("c65536").End(xlUp).Row - 6).Value
Dest.Cells(x, 7).Value = O.Range("g65536").End(xlUp).Value

x = x + 1
End If
Next O
End Sub

 

[tototiti2008]

Re : grouper - info en endx1up - 6 lignes

Alors, tu demande parcourir toutes les feuilles de ton classeur

For Each O In ThisWorkbook.Sheets

puis, dans la ligne que tu voulais corriger, tu veux prendre 6 lignes au-dessus de la dernière cellule de la Colonne C. Evidement, si à la question, dernière ligne de la colonne C remplie il trouve 1, 1-6 = -5 et donc il a beaucoup de mal à chercher la valeur de la ligne -5.

Il faut donc que ton classeur ne contienne que les feuilles X, Y et Z au lancement de la macro, et que ta boucle dise de ne pas traiter la feuille Clients

Est-ce plus clair ?

 

[pierrejean]

Re : grouper - info en endx1up - 6 lignes

bonjour a tous

A tester (si j'ai bien compris !!!)

 

[VBA_DEAD]

Re : grouper - info en endx1up - 6 lignes

bonsoir pierre jean, le forum

ton exemple est parfati. ca marche maintenant.

merci a toi et tototiti2008
bonne nuit a tous

vba_deaD