demande d'aide pour une macro

B

Bebere

XLDnaute Barbatruc

• 7 Janvier 2010

• #16

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 7 Janvier 2010

• #17

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

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 7 Janvier 2010

• #18

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 7 Janvier 2010

• #19

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!

Code:

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

Mais si tu écrit

Code:

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

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

Code:

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

pour avoir la dernière cellule remplie

Cordialement

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 7 Janvier 2010

• #20

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 7 Janvier 2010

• #21

Re : demande d'aide pour une macro

Re,

Merci pour l'aide



Efgé encore pardon pour le cafouillage d'hier.


Bpol

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 7 Janvier 2010

• #22

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

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 9 Janvier 2010

• #23

Re : demande d'aide pour une macro

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 10 Janvier 2010

• #24

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

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 32
• Classeur1.xls

  13.5 KB · Affichages: 38
• Classeur1.xls

  13.5 KB · Affichages: 36

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 10 Janvier 2010

• #25

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

 

Vote positif 0 Vote négatif