inserer une ligne copiée dans une autre feuille

[neo]

bonjour,

j'ai un petit problème, et je ne comprends pas d'ou ca vient.

Je souhaite, dans la feuille1, copier les cellule C à M d'une ligne qui varie en fonction d'un indice i.
Ces lignes copiées, je veux les inserer dans la feuille2, au niveau de la ligne 12, en decalant le reste vers le bas...
voici mon code (dans la feuille1):

Dim Celli As String
Celli = 'C' & i & ': M' & i
Range(Celli).Select
Selection.Copy
Sheets('Feuille2').Select
Range('C12:M12').Select
Selection.Insert Shift:=xlDown

et il me met une erreur: la méthode select de la classe range a echoué (erreur au niveau du deuxieme range)
Je ne vois vraiment pas pourquoi.
Auriez vous de quoi m'aider SVP?

d'avance merci

 

[bbmarcus]

Bonjour néo, le forum,

Encore un soucis de programmation...bienvenu dans la matrice...heu sur VBA.....

Je ne suis pas XLlent en programmation, mais il me semble qu'il te faudrai définir la variable i; pour l'instant, tu demandes avec ton code à copier les cellules de c à m en fonciton de i, mais i, c'est quoi?

Ton erreur doit venir de là.....jete un oeil dans l'aide...ca doit ressembler à Dim i as Integer....

bon courage

bbmarcus

 

[excalibur]

bonjour neo , bbmarcus , le forum essaie comme cela Dim Celli As String
Dim i As Variant
Celli = 'C' & i & ': M' & i
Selection.Copy
Sheets('Feuil2').Select' attention feuil2 chez moi & non feuille2
Range('C12:M12').Select
Selection.Insert Shift:=xlDown ' salutations

 

[ChTi160]

Oupsss tout faux Salut neo
Salut bbmarcus
bonjour le Forum

voilà ce que j'ai mis pour tester et qui fonctionne

Sub trans()
 Dim Celli As String
 Dim i As Byte
Sheets('Feuil1').Select
 i = 2
Celli = 'C' & i & ': M' & i
Range(Celli).Select
Selection.Copy
Sheets('Feuil2').Select
 Range('C12:M12').Select
Selection.Insert Shift:=xlDown

Application.CutCopyMode = False

Sheets('Feuil1').Select
End Sub

Oupssssssss SALUT excalibur pas vu

Message édité par: Chti160, à: 25/08/2005 12:27

Message édité par: Chti160, à: 25/08/2005 12:34

 

[neo]

Bon, j'ai testé vos code...mais ca ne marche pas.
J'ai toujours la meme erreur au niveau de :
Range('C12:M12').Select

je ne pige pas.
Le i est déclaré mais ca ne change rien.

J'ai ajouté le :
Application.CutCopyMode = False mais je ne sais pas a quoi ca correspond...mais ca ne marche toujours pas.

Je precise que cette comance est censé s'effectuer lors d'un click sur un bouton dans la feuille1....je ne sais pas si ca peut jouer.

DOnc voilà...tjs le même problème, qui vient de :

Sheets('Revue d'Analyse').Select
Range('C12:M12').Select


Merci...

 

[ChTi160]

re neo
re le fil

en pièce jointe un fichier avec explication
un bouton feuil1 qui copy la Range('C2:M2') en feuille 'Revue d'Analyse'

je pense qu'il faut mieux lorsque l'on passe d'une feuille a l'autre indiquer l'endroit ou se trouve les ranges Sélectionnées
une explication comme une autre.

tiens nous au courant [file name=Transfert_20050825134114.zip size=9678]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_20050825134114.zip[/file]

 

[neo]

Ca marche !!!!

Merci beaucoup...pour votre rapidité, votre politesse, votre savoir...pour tout !!

passez une agréable journée !

Neo