La honte : copie cellule excel
Résolu
Bonjour,
J'ai un peu honte de demander de l'aide, mais là je suis au bout du rouleau.
Je débute sous excel et je rame complètement avec ce problème.
J'ai deux feuilles excel F1 et F2.
Dans F1 j'ai un tableau de 500 lignes avec des données il ya plusieurs colonnes .
Je m'intéresse à la colonne D certaines cellules sont vides d'autres ont des informations.
Je veux que les données de la colonne D feuille F1 quand elles existent (cellule non vide) soient copiées dans la feuille F2 à partir de la cellule G42.
Pour information la feuille F2 à un format spécific en vue d'être imprimée dans le cadre de réunions.
C'est surement facile pour quelqu'un qui maitrise mais moi je rame.
A part cette macro tou fonctionne...
Un peu d'aide me serait d'un grand secours !
J'ai un peu honte de demander de l'aide, mais là je suis au bout du rouleau.
Je débute sous excel et je rame complètement avec ce problème.
J'ai deux feuilles excel F1 et F2.
Dans F1 j'ai un tableau de 500 lignes avec des données il ya plusieurs colonnes .
Je m'intéresse à la colonne D certaines cellules sont vides d'autres ont des informations.
Je veux que les données de la colonne D feuille F1 quand elles existent (cellule non vide) soient copiées dans la feuille F2 à partir de la cellule G42.
Pour information la feuille F2 à un format spécific en vue d'être imprimée dans le cadre de réunions.
C'est surement facile pour quelqu'un qui maitrise mais moi je rame.
A part cette macro tou fonctionne...
Un peu d'aide me serait d'un grand secours !
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
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-
-
@Evinrude 44Bonjour,
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. -
@chtilouSalut Chtilou,
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 + -
@Evinrude44Chtilou,
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 -
@Evinrude44C'est sympa de me tenir informé.
Bonne journée et bonne continuation.
-
