Discussion :

[gegepinpin]

bonjour,
j'ai surement mal chercher mais je ne trouve pas réponse à mon problème, que voici:
- je voudrais en sélectionnant un ligne de mon tableau excel avoir grâce à un bouton de commande qu'il y est une copie de certaines cellules et coller dans une deuxième feuille dans des cellules bien précise. je me complète en sélectionnant la ligne X de la feuille Etat-engins et en clickant sur le bouton os les cellules AX, BX, CX et MX soit copiées vers la feuille os et mis respectivement en E35 pour AX, C53 pour BX, E38 pour CX et C54 pour MX.
merci de votre aide, je vous joint mon fichier afin d'être plus clair.test.zip

[El_Titof]

Bonjour,

Voici ce que tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Recopie()
    'Transfert données de la fiche ModFaxture vers la fiche Client
    Dim Source As String
    Dim Cible As String
    Dim LigneEncours As Long
    Dim OldNO As Integer
    Dim NewNO As Integer
    Dim fSour As Worksheet
    Dim fCible As Worksheet
 
    'Chargement du nom des feuilles origine et destination
    Source = "Etat-engins"
    Cible = "os"
    'Calcul de la ligne courante
    LigneEncours = Selection.Row
    Set fCible = Worksheets(Cible)
    Set fSour = Worksheets(Source)
    'Copie des valeurs
    Debug.Print LigneEncours & " " & fSour.Range("A" & LigneEncours).Value
    fCible.Range("E35").Value = fSour.Range("A" & LigneEncours).Value
    fCible.Range("C53").Value = fSour.Range("B" & LigneEncours).Value
    fCible.Range("C54").Value = fSour.Range("M" & LigneEncours).Value
    fCible.Range("E38").Value = fSour.Range("C" & LigneEncours).Value
 
End Sub

Tu me tiens au courant

++

El_Titof

[gegepinpin]

bonjour,
c'est presque parfait, il y a juste la colonne A qui ne se copie pas suivant sur quelle ligne on clic c'est surement du au fait que les cellules soient fusionner, je continue de chercher.
merci pour ton super boulot.

[gegepinpin]

bonjour à tous,
j'ai l'impression qu'il est très complexe de demander a une macro de lire dans des cellules fusionner car excel ne prend en compte que la 1ere ligne de la colonne des cellules fusionnées.
quelqu'un aurait une idée?

[Philippe Tulliez]

Bonjour,
La meilleure idée que je puisse te donner c'est de ne pas fusionner de cellules.
Une liste de données idéalement doit être dans une feuille séparée des autres données (les clients dans une feuille Client, le stock dans une autre feuille, etc...) commencer en ligne 1 où se trouveront les étiquettes de colonnes (les titres) et ensuite les données sur les lignes suivantes sans lignes vides et préférer les valeurs nulles (0) plutôt que des cellules vides et donc aucune cellules fusionnées.
Sinon impossible d'utiliser correctement les outils et fonctionnalités d'excel tels que Tri, Filtres, Tableau croisés dynamiques etc...)

[gegepinpin]

merci philippe pour ta réponse mais a tu jetés un oeil sur le type de fichier que j'utilise. Car je ne vois pas trop comment faire avec tes explications.

[Philippe Tulliez]

Bonjour,
Non, je n'ai pas ouvert ton fichier parce-que je n'ouvre les fichiers que si vraiment après plusieurs échanges et à condition que les explications données soient suffisamment claires, nous n'arrivons pas à un résultat probant.
Je n'ai fait que répondre à ta dernière intervention invoquant des problèmes avec des cellules fusionnées.
Pour obtenir des résultats corrects et faire des analyses avec des données dans excel sans passer par du bricolage ou monter des usines à gaz, il faut bien organiser ses données.

[El_Titof]

Bonsoir,

au lieu de faire une fusion, duplique l'information comme cela devrait fonctionner.

[gegepinpin]

bonjour,
merci à tous pour vos réponses. je clos le sujet.
encore bravo !