La honte : copie cellule excel
Résolu
Evinrude 44
-
chtilou Messages postés 1696 Date d'inscription Statut Membre Dernière intervention -
chtilou Messages postés 1696 Date d'inscription Statut Membre Dernière intervention -
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 !
A voir également:
- Matrioshki le trafic de la honte streaming
- Streaming - Guide
- Fast streaming - Accueil - Guide TV et vidéo
- Google maps trafic en temps réel - Guide
- Site de streaming illégal - Accueil - Services en ligne
- Streaming enhanced - Télécharger - Streaming vidéo
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.
;-)
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.
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 +
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
Bonne journée et bonne continuation.