Insérer des valeurs dans dernière ligne vide ...

C

CHALET53

XLDnaute Barbatruc

• 9 Septembre 2014

• #2

Re : Insérer des valeurs dans dernière ligne vide ...

Bonjour,

Un essai

a+

 

Pièces jointes

• olibelle InsertionLigne.xlsm

  26.3 KB · Affichages: 27
• olibelle InsertionLigne.xlsm

  26.3 KB · Affichages: 29
• olibelle InsertionLigne.xlsm

  26.3 KB · Affichages: 32

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 9 Septembre 2014

• #3

Re : Insérer des valeurs dans dernière ligne vide ...

Bonjour,

...Et quel est le lien (ou la différence) avec cette autre discussion où tu disais être satisfait de la solution proposée???

[Edit:] bonjour CHALET53

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 9 Septembre 2014

• #4

Re : Insérer des valeurs dans dernière ligne vide ...

Modeste à dit:

Bonjour,

...Et quel est le lien (ou la différence) avec cette autre discussion où tu disais être satisfait de la solution proposée???

[Edit:] bonjour CHALET53

Cliquez pour agrandir...

Bonjour, une autre idée m'est venu...
Je continuerai avec la même discussion et merci de me le rappeler car ça évitera d"encombrer le forum.
A+

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 9 Septembre 2014

• #5

Re : Insérer des valeurs dans dernière ligne vide ...

Merci CHALET53...
C'était une suite sur une autre discussion ...
Modeste me l'a rappeler ...
Ta solution me va parfaitement.
Je l'intègre dans mon fichier et je posterai sur cette discussion un autre souci.
Rassembler 2 Bouton en un seul (2 macro en une)
Je m'y met et encore merci...

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 9 Septembre 2014

• #6

Re : Insérer des valeurs dans dernière ligne vide ...

Merci à
phlaurent55 pour mon premier post

Et à Chalet53 pour le 2ième problème..
Modeste pour le règlement ...

Faut-il faire une autre discussion pour finaliser mon fichier excel ???
Le sujet est de rassembler ces 2 macro (boutons) en une seul...

Les voici:
En module 4 (solutionné par phlaurent55)

Sub Bouton1_Clic()
ligne = Sheets("Saisie").Range("A65535").End(xlUp).Row + 1
Sheets("Saisie").Cells(ligne, 1) = Format(Date, "mm/dd/yyyy")
For Each cellule In Sheets("Ecart").Range("B32:AB32")
If cellule <> "" Then Sheets("Saisie").Cells(ligne, cellule + 3) = cellule
Next cellule
Sheets("Saisie").Select
End Sub


En module 5 (solutionné par Chalet53)

Sub recopie()
derligne = Sheets("Saisie").Range("B65536").End(xlUp).Row + 1
With Sheets("Saisie")
.Range("B" & derligne) = Range("B67")
.Range("C" & derligne) = Range("C67")
For i = 4 To 16
'60
.Cells(derligne, i + 56) = Cells(67, i)
Next i
End With
End Sub


Merci à l'ensemble du forum.

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 9 Septembre 2014

• #7

Re : Insérer des valeurs dans dernière ligne vide ...

Tu recopies ton pgm au début (derrière Sub recopie) sans le Sub et le End sub :

ligne = Sheets("Saisie").Range("A65535").End(xlUp).Row + 1
Sheets("Saisie").Cells(ligne, 1) = Format(Date, "mm/dd/yyyy")
For Each cellule In Sheets("Ecart").Range("B32:AB32")
If cellule <> "" Then Sheets("Saisie").Cells(ligne, cellule + 3) = cellule
Next cellule
Sheets("Saisie").Select

 

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 9 Septembre 2014

• #8

Re : Insérer des valeurs dans dernière ligne vide ...

J'ai bien recopier le pgm derrière Sub recopie

Erreur de compilation
Instruction incorrecte à l'extérieur d'une procédure. (xlUp) en surbrillance bleue

ligne = Sheets("Saisie").Range("A65535").End(xlUp).Row + 1
Sheets("Saisie").Cells(ligne, 1) = Format(Date, "mm/dd/yyyy")
For Each cellule In Sheets("Ecart").Range("B32:AB32")
If cellule <> "" Then Sheets("Saisie").Cells(ligne, cellule + 3) = cellule
Next cellule
Sheets("Saisie").Select
---------------------------------------------------------------------------------------------------------------------------------------
Sub recopie()
derligne = Sheets("Saisie").Range("B65536").End(xlUp).Row + 1
With Sheets("Saisie")
.Range("B" & derligne) = Range("B67")
.Range("C" & derligne) = Range("C67")
For i = 4 To 16
'60
.Cells(derligne, i + 56) = Cells(67, i)
Next i
End With
End Sub

A+

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 9 Septembre 2014

• #9

Re : Insérer des valeurs dans dernière ligne vide ...

Re,

Pas d'erreur sur cette ligne chez moi

a+

 

Pièces jointes

• olibelle InsertionLigne.xlsm

  26.5 KB · Affichages: 25
• olibelle InsertionLigne.xlsm

  26.5 KB · Affichages: 32
• olibelle InsertionLigne.xlsm

  26.5 KB · Affichages: 33

Vote positif 0 Vote négatif

olibelle0101

XLDnaute Occasionnel

• 9 Septembre 2014

• #10

Re : Insérer des valeurs dans dernière ligne vide ...

OK parfait j'ai recopié juste après Sub recopie.
Comme toi et tout est bon.
UN GRAND MERCI...
A+

 

Vote positif 0 Vote négatif