La honte : copie cellule excel
Résolu/Fermé
Evinrude 44
-
20 mai 2008 à 16:14
chtilou Messages postés 1664 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 30 avril 2012 - 22 mai 2008 à 08:51
chtilou Messages postés 1664 Date d'inscription mardi 22 janvier 2008 Statut Membre Dernière intervention 30 avril 2012 - 22 mai 2008 à 08:51
A voir également:
- La honte : copie cellule excel
- La honte! avec VLC media player - Forum Lecteurs et supports vidéo
- Matrioshki : le trafic de la honte streaming - Forum Cinéma / Télé
- Matrioshki le trafic de la honte streaming - Forum Cinéma / Télé
- Emma Watson (honte a elle) ✓ - Forum Cinéma / Télé
- TNT livraison express une honte!!! - Forum Consommation & Internet
1 réponse
Jeren
Messages postés
255
Date d'inscription
mardi 6 mai 2008
Statut
Membre
Dernière intervention
21 mai 2008
45
20 mai 2008 à 16:20
20 mai 2008 à 16:20
Bonjour,
Alors, c'est très simple,
Dans la cellule de ta feuille 2 (F2) tu mets: =F1!G42
Voila, bon courage
Edit: je me suis précipité, j'ai mal lu ton probleme, je regarde comment faire, ce que j'ai fait au dessus n'est pas la solution de ton probleme
Alors, c'est très simple,
Dans la cellule de ta feuille 2 (F2) tu mets: =F1!G42
Voila, bon courage
Edit: je me suis précipité, j'ai mal lu ton probleme, je regarde comment faire, ce que j'ai fait au dessus n'est pas la solution de ton probleme
20 mai 2008 à 16:32
Effectivement tu as raison ça ne répond pas trop à mon problème.
Je veux plus une macro car je vais l'associer à un 'CommandButton' dans ma feuille F2 d'impression.
mais c'est sympha de m'aider.
De toute façon je n'y arrive pas, alors toute aide est bien venue.
;-)
20 mai 2008 à 17:15
regarde si ce qui suis te convient:
Sub CopierD()
'
' CopierD Macro
'
'
Sheets("F1").Select
Range("D1:D500").Select
Selection.Copy
Sheets("F2").Select
ActiveWindow.SmallScroll Down:=15
Range("G42").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("G42:G542").Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
à ton écoute.
21 mai 2008 à 08:55
Ca fait plaisir de voir que j'ai peut être une solution sur ce problème.
J'en ai presque rêvé pendant la nuit.
J'ai trouvée une soltion qui marchouille, mais la tienne me semble mieux.
J'essaye ça et je te tiens au courant...
A +
21 mai 2008 à 16:18
Je me suis inspiré de ton code et je dois ereconnaître ue ça marche hyper bien après quelques adaptations.
Donc je te remercie.
Mon problème est résolu.
J'attaque autre chose.
Alors qui sait à bientôt....
Evinrude44
Voici une copie de mon code :
Tri des tests NOK dans feuille Test table
'Les résultats NOK sont ensuite triés dans cette feuille.
Sheets("Test table").Select
While Range("E" & Indice_result).Value <> ""
If Range("E" & Indice_result).Value = "OK" Then
Range("K" & Indice_result).Value = Range("D" & Indice_result).Value
End If
Indice_result = Indice_result + 1
Wend
'Copie des résultats statut NOK dans feuille Summary à partir de la cellule G42
For Indice_affich = 1 To 502
Sheets("Test table").Select
If Range("K" & Indice_affich).Value <> "" Then
Range("K" & Indice_affich).Select
Selection.Copy
Sheets("Summary").Select
Range("G" & Index_ligne).Select
ActiveSheet.Paste
Index_ligne = Index_ligne + 1
End If
'Suppression des espaces entre les cellules suite au tri dans la feuille Test table
Sheets("Test table").Select
Range("k1:k500").Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Next
'Supprime le tri dans la feuille Test table
Sheets("Test table").Select
Range("K1", "K500").Delete
End Sub
22 mai 2008 à 08:51
Bonne journée et bonne continuation.