Un Copier/Coller tout bête mais...

[bagerard]

qui ne se décide pas à fonctionner !!

Bonjour à tous,

je viens chercher de l'aide concernat 3 malheureuses lignesd e mon code vba qui ne veulent rien savoir !
J'ai une macro qui automatise (par le moyen de InputBox) la saisie de données. Mon problème est qu'à chaque fin de saisie d'un eligne (et avant de passer à la suivante) je voudrais la copier dans un autre onglet...
J'ai essayé:

Sheets("AVIZE").Range(Cells(numLig, 1), Cells(numLig, 5)).Copy
Sheets(Sheets.Count).Range("A" & numLig).Select
Selection.Paste
Worksheets("AVIZE").Activate

et aussi:
Sheets("AVIZE").Range(Cells(numLig, 1), Cells(numLig, 5)).Copy
Sheets(Sheets.Count).Range(Cells(numLig, 1), Cells(numLig, 5)).Select
Selection.Paste
Worksheets("AVIZE").Activate

Mais rien de va.
Evidemment avec un : Sheets(Sheets.Count).Select tout court le copier/coller se fait mais tjs dans la première ligne...

J'espère avoir été assez clair.

Merci par avance pour votre aide

 

[mutzik]

Re : Un Copier/Coller tout bête mais...

Bonjour bagerard,

est-tu sur d'incrémenter ton numlig avant de faire (je suppose) ta boucle
sinon le code complet voire le fichier nous serait plus utile

 

[bagerard]

Re : Un Copier/Coller tout bête mais...

Salut Mutzik,

oui, aucun souci concernant numLig.
D'ailleurs, si ça peut vous aider à comprendre le problème, Excel réalise très bien la partie "COPIER" (cellules clairement sélectionnées à l'écran), il bug quand il s'agit de coller.

Bagerard

 

[mutzik]

Re : Un Copier/Coller tout bête mais...

re,
as-tu essayé l'nregistreur de macros pour voir, c'est comme cela que je fais en premier puis je remplace des "A2" par des "A" & numLig ...
sinon, faut voir le fichier

 

[mutzik]

Re : Un Copier/Coller tout bête mais...

re again,
une autre piste, pourquoi n'écris-tu pas tes données directement dans la bonne feuille et au bon endroit après ton inputbox ...

 

[bagerard]

Re : Un Copier/Coller tout bête mais...

J'ai bien peur d'être trop débutant en vba pour te suivre...
Enregistreur de macro ?????

Ci-dessous un extrait de mon code (j'ai fait le ménage dedans !!!)
Sub saisiemain()
Dim numCol As Long
Dim numLig As Integer
Dim strSaisie As String
Dim nomfen As String


'saisir date
nomfendate = "DATE DU RELEVE"
strSaisieDate = InputBox("Date du relevé ?", nomfendate)
If strSaisieDate <> "" Then
nom = strSaisieDate

Sheets.Add After:=Sheets(Sheets.Count)
End If

Sheets(Sheets.Count).Name = nom


Worksheets("AVIZE").Activate


' Commencer quelle ligne ?

numLigdebut = InputBox("Commencer à saisir quelle ligne ?", nomfendate)

' Boucle sur ligne
nonrelev = 0
boucle = 1
For numLig = numLigdebut To ActiveCell.SpecialCells(xlCellTypeLastCell).Row



Do While boucle = 1
nomfen = Cells(numLig, 4) & " " & Cells(numLig, 5) & " " & Cells(numLig, 2) & " " & Cells(numLig, 3) & " " & Cells(numLig, 6)
strSaisie = InputBox("Volume du BAC ?", nomfen)

If strSaisie = "nr" Then
nonrelev = 1
Cells(numLig, 9).Value = "Non Relevé"
Exit Do
End If

' Si saisie effectuée
If strSaisie <> "" Then

strSaisiep = InputBox("Pourcentage de remplissage ?", nomfen)

volumeOM = volumeOM + (strSaisie * strSaisiep) / 100

End If

If MsgBox("Autre bac OM ?", vbYesNo, " ") = vbNo Then

boucle = 0

End If




Cells(numLig, 9).Value = volumeOM

Loop

If nonrelev = 0 Then
If MsgBox("Y avait-il du VRAC OM ?", vbYesNo, " ") = vbYes Then

volumeOMvrac = InputBox("Volume de VRAC OM ?", nomfen)

volumeOM = volumeOM + volumeOMvrac
Cells(numLig, 9).Value = volumeOM
End If





End If

boucle = 1

' Sheets("AVIZE").Range(Cells(numLig, 1), Cells(numLig, 5)).Copy

' Sheets(Sheets.Count).Range("A" & numLig).Select
' Selection.Paste

' Worksheets("AVIZE").Activate



If MsgBox("Continuer de saisir ?", vbYesNo, " ") = vbNo Then Exit Sub

Next numLig


End Sub

J'ai pas mal coupé dans le vif pour que ce soit plus "digeste" donc ne t'inquiète pas si, au passage, il manque des End et cie...

 

[Robert]

Re : Un Copier/Coller tout bête mais...

Bonjour Bagerard, Bertand, bonjour le forum,

Souvent je passe par une variable de type Range (dest) comme ça :

Dim dest As Range 'déclare la variable dest
Set dest = Sheets(Sheets.Count).Cells(numLig, 1) 'définit la variable dest
Sheets("AVIZE").Range(Cells(numLig, 1), Cells(numLig, 5)).Copy Destination:=dest 'copie et colle
Worksheets("AVIZE").Activate

 

[bagerard]

Re : Un Copier/Coller tout bête mais...

Cool !

Merci Robert et Mutzik de vous êtes penchés sur mon problème.
La solution de Robert fonctionne.

Bonne journée à vous
Bagerard