demande d'aide pour une macro

[bpol]

Bonsoir,
me revoici avec mon fichier que j'ai du modifier.

j'ai créer une macro (" don") à ma sauce !!!!😛 Oui je sais c'est pas beau à lire😛

mais comme je m'en doutais elle ne fonctionne pas

qui peut m'aider pour cette macro?


http://cjoint.com/?bguITdKnnp

Merci
Bpol

 

[Bebere]

Re : demande d'aide pour une macro

bonjour
une solution,en suivant les explications de bpol de 22h12

Sub don()
Dim C As Byte, Ligne As Long, MaLigne As Variant

Application.ScreenUpdating = False

Worksheets("Fiche").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Range("Fiche!E2")
MaLigne = Range("Fiche!B19:AA19")
With Worksheets("dons-jour")
Ligne = .Range("A65536").End(xlUp).Row + 1
For C = 1 To UBound(MaLigne, 2) 'colonnes
.Cells(Ligne, C + 1) = MaLigne(1, C)
Next C
End With

With Worksheets(Range("Fiche!E2").Text)
Ligne = .Range("A65536").End(xlUp).Row + 1
For C = 1 To UBound(MaLigne, 2) 'colonnes
.Cells(Ligne, C + 1) = MaLigne(1, C)
Next C
.Range("B19:AA19").ClearContents
End With

Application.ScreenUpdating = True

End Sub

à bientôt

 

[bpol]

Re : demande d'aide pour une macro

Bonjour Paritec , Efgé et Berbere,

Excuse moi Paritec je n'avais pas vu ton message.

Mais après un essai je remarque que c'est mission impossible car il doit y avoir +/_ 900 feuilles et se sera un méga fichier alors.

en jouant avec la macro créer cela coince à +/_ 6O feuilles et j'ai déjà un fichier de plus de 1 MO

mille excuses pour le dérangement.
je vais étudier une autre solution.

à plus tard.


BPOL

 

[bpol]

Re : demande d'aide pour une macro

Bon me revoilà,

j'ai un petit soucis, j'ai une macro

qui débute par

Sheets("BD").Select
Ligne = Range("A65536").End(xlUp).Row + 1

.Cells(Ligne, 1) = Sheets("fiche").Range("E2")
.Cells(Ligne, 2) = Sheets("fiche").Range("E3")
etc...

mais elle coince à hauteur de ligne=

avec comme message

Erreur de compilation
Variable non définie


qui peut m'expliquer?


BPOL

 

[Efgé]

Re : demande d'aide pour une macro

Re bpol,
Il faut commencer par déclarer tes variables.
Dans ce cas :
Dim Ligne As Integer
Exxemple!

Sub test()
Dim Ligne As Integer
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A1").Value = Ligne
End Sub

Mais si tu écrit

Range("A65536").End(xlUp).Row + 1

Tu sera en dessous de la dernière ligne. Donc sur une cellule vide.
Met

Range("A65536").End(xlUp).Row

pour avoir la dernière cellule remplie

Cordialement

 

[jeanpierre]

Re : demande d'aide pour une macro

Bonsoir le fil,

Integer me semble un peu court s'il y a plus de 33000 lignes.

Long serait plus adapté.

Bonne soirée.

Jean-Pierre

 

[bpol]

Re : demande d'aide pour une macro

Re,

Merci pour l'aide



Efgé encore pardon pour le cafouillage d'hier.


Bpol

 

[bpol]

Re : demande d'aide pour une macro

Re,
une nouvelle demande comment fait on avec une macro

soustraire une colonne (nombre de lignes inconnu)d'une autre avec une macro

dans l'exemple soustraire la colonne C de la la colonne B

le résultat doit être en B


Bpol

 

[Efgé]

Re : demande d'aide pour une macro

Bonjour à tous
je n'arrive pas à ouvrir certains fichiers, dont le votre...
Désolé.
Cordialement

 

[bpol]

Re : demande d'aide pour une macro

Bonjour Efgé,

me revoilà seulement avec la panne du serveur du forum.

plus besoin de chercher je suis parvenu à faire la macro pour soustraire une colonne:

For k = 1 To 2000
Range("B" & k + 7) = Range("B" & k + 7) - Range("C" & k + 7) + Range("D" & k + 7)

Next k
'And
Range("C8😀2500").ClearContents

pour ce qui est de toute les demandes précédente plus besoins mon fichier est OK MErci!

voici un nouveau soucis

comment faire pour qu'une cellule se mette en rouge dans feuil1 lorsque dans feuil2 col K
il y a un doublons?


Bon Dimanche

Bpol

 

[Efgé]

Re : demande d'aide pour une macro

Bonjour bpol,
Je pense qu'il serait mieux de créer un nouveau fil pour votre nouvelle demande.
Cordialement