Copier CERTAINES cellules sur autre feuille puis saut de ligne [Résolu]

[Biggy30]

bonjour a tous !

Après avoir résolu plusieurs problèmes sur mon travail (d'ailleur merci a BlueMonkey !) car j'ai du changer certaines choses et maintenant mes
range a copier n'ont pas le meme format que sur la feuille 2...je m'explique....

Sur ma feuille nommée PROGRAMME, j'ai plusieurs controles et cellules qui me permetent d'entrer des données, plus bas sur cette meme feuille j'ai des cellules ou les calculs sont effectués selon les données entrer plus haut.

Ma feuille 2 a un tout autre format de cellule, je ne peut donc pas copier et coller une LIGNE de la feuille1 (la ou sont fait les calculs) vers la 2 car les cellules ne sont pas dans le bon ordre.

J'ai essayer de copier avec ex: range.("d46,c46).copy vers range("a17,b17")
sachant que la cellule D46 de la feuille1 va en A17 de la feuille 2 mais j'obtiens un dièse REF sur la cellule...

Donc je doit copier (vba sur bouton) CERTAINES cellules (aléatoires) de la feuille 1 vers CERTAINES cellules de la feuille 2 SUR LA MEME LIGNE puis ensuite les prochaines données seront sur la ligne suivante (xlup j'imagine)

Merci d'avance et j'espère avoir été clair....je ne peut mettre mon fichier en exemple car c'est un travail pour ma companie et certaines choses doivent restées confidentielles...dsl

[Biggy30]

Bon...facon pas très propre et pas très conviviale de copier mes cellules mais ca fonctionne....jusqu'a un certain point

voila mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ajoupor_clic()
 
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A17") = Sheets("PROGRAMME").Range("D46")
Sheets("ORIGINALE").Range("C17") = Sheets("PROGRAMME").Range("C46")
Sheets("ORIGINALE").Range("D17") = Sheets("PROGRAMME").Range("F46")
Sheets("ORIGINALE").Range("G17") = Sheets("PROGRAMME").Range("F46")
Sheets("ORIGINALE").Range("I17") = Sheets("PROGRAMME").Range("G46")
Sheets("ORIGINALE").Range("M17") = Sheets("PROGRAMME").Range("I46")
Sheets("ORIGINALE").Range("N17") = Sheets("PROGRAMME").Range("J46")
Sheets("PROGRAMME").Protect Password:="popol"
 
End Sub

comment je pourrait faire pour luis dire que si y'a déjà des données en A17,C17,D17,G17,I17,M17et N17...copie-les en B ??
J'ai tenter d'ajouter ca avant la ligne pour reprotéger ma feuille mais ca marche pas :

Code :

Sheets("ORIGINALE").Range("A").End (xlUp)

J'espère que ca se comprends ce que je dis !!

MERCI!

[jfontaine]

Bonjour,

pour ajouter sur la prochaine ligne vide

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ajoupor_clic()
Dim Ligne As Long
 
Ligne = Sheets("ORIGINALE").Range("A" & Rows.Count).End(xlUp).Row + 1
 
 
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & Ligne).Value = Sheets("PROGRAMME").Range("D46").Value
Sheets("ORIGINALE").Range("C" & Ligne).Value = Sheets("PROGRAMME").Range("C46").Value
 
etc ...
 
Sheets("PROGRAMME").Protect Password:="popol"
 
End Sub

[Biggy30]

Merci mais ne fonctionne pas du tout...il ne se passe rien

[Biggy30]

j'ai essayer ceci mais sans succès :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub ajoupor_clic()
 
Dim firstline As Integer
 
firstline = 17
 
Sheets("PROGRAMME").Unprotect Password:="popol"
Sheets("ORIGINALE").Range("A" & firstline) = Sheets("PROGRAMME").Range("D46")
Sheets("ORIGINALE").Range("C" & firstline) = Sheets("PROGRAMME").Range("C46")
Sheets("ORIGINALE").Range("D" & firstline) = Sheets("PROGRAMME").Range("E46")
Sheets("ORIGINALE").Range("G" & firstline) = Sheets("PROGRAMME").Range("G46")
Sheets("ORIGINALE").Range("I" & firstline) = Sheets("PROGRAMME").Range("F46")
Sheets("ORIGINALE").Range("M" & firstline) = Sheets("PROGRAMME").Range("I46")
Sheets("ORIGINALE").Range("N" & firstline) = Sheets("PROGRAMME").Range("J46")
 
If Not IsEmpty(Range("A" & firstline)) Then
firstline = firstline + 1
End If
 
Sheets("PROGRAMME").Protect Password:="popol"
 
End Sub

SVP quel serait la meilleure méthode ??

[Biggy30]

Bon je suis vraiment navré mais ton code fonctionnais parfaitement....sauf que je ne le voyais pas car j'avais tester des trucs avant et ca me l,ajoutais au bas de mon classeur donc je ne voyais pas...j'ai donc effacer ces lignes au bas du classeur puis réessayer ton code et c'est NICKEL !!!!!!

MERCI BCP et DÉSOLÉ

[jfontaine]

Merci mais ne fonctionne pas du tout...il ne se passe rien

Cela est étonnant, peux tu debugguer en pas a pas et regarder si le code passe sur toutes les lignes.
Notamment vérifier la valeur de la variable Ligne.

Dans ton dernier code, ta variable firstline sera toujours = 17 car tu cherches la prochaine ligne après la copie des données. firstline étant réinitialisé a chaque appel de la procèdure


EDIT : Ok