XL 2013 copier valeur d'une cellule en fct de la valeur d'une autre

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Janvier 2022

• #2

Bonjour Lagodille, bonjour le forum,

Avec un petit fichier exemple c'est toujours plus facile de répondre. Même si tes explications sont claires, il nous faut recréer l'environnement pour le tester et t'envoyer une réponse cohérente. On ne sait pas si "11%" est du texte ou un résultat formaté...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Janvier 2022

• #3

Bonjour lagodille, Robert,

Exécutez :

VB:

Sub Copier()
Dim ligne&, c As Range
ligne = 3 'pour tester
Set c = Feuil1.Cells.Find("11%", , xlValues, xlWhole)
If Not c Is Nothing Then Feuil2.Cells(ligne, 3) = c.Offset(, 1)
End Sub

Fonctionne si 11% est un nombre ou du texte.

A+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Janvier 2022

• #4

Re,

Encore perdu l'occasion de me taire...

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 23 Janvier 2022

• #5

Bonjour Robert et job75,

Voici le fichier demandé et plus d'explications en espérant que je sois clair et précis

Merci

cordialement

 

Pièces jointes

• Bonjour à tous.docx

  11.7 KB · Affichages: 3
• testons.xlsm

  113.4 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Janvier 2022

• #6

Bonjour lagodille, Robert, le forum,

A priori vous voulez transférer les données de la feuille "Devis" sur la 1ère ligne vide de la feuille "TdB".

Cela ne pose pas de problème mais il faut que la feuille "Devis" soit cohérente.

Les formules de cette feuille "Devis" sont en effet à revoir.

Ensuite dans cette feuille le plus simple est de nommer les cellules à transférer.

A+

 

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 24 Janvier 2022

• #7

Bonjour job75,

La feuille devis je pense est maintenant cohérente. 😉

Pour mon souci j'aimerai avoir le code au moins pour total HT et je ferai le reste

Comme je l'ai expliqué, pour le fait que le nombre de lignes varient suivant le devis proposé je ne peux copier une cellule précise qui ne se retrouvera pas au meme endroit la fois suivante
je ne sais pas faire.
merci
cordialement

 

Pièces jointes

• testons.xlsm

  112.4 KB · Affichages: 3
• Bonjour à tous.docx

  12.3 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2022

• #8

Bonjour lagodille, le forum,

lagodille à dit:

Comme je l'ai expliqué, pour le fait que le nombre de lignes varient suivant le devis proposé je ne peux copier une cellule précise qui ne se retrouvera pas au meme endroit la fois suivante

Cliquez pour agrandir...

C'est bien pour cette raison qu'il faut nommer les cellules qu'on veut copier.

Voyez le fichier joint et les cellules nommées Total_HT et Total_TTC.

La macro affectée au bouton :

VB:

Sub Copier()
Dim lig&
lig = 1
With Sheets("TdB")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    While .Cells(lig, "F") <> ""
        lig = lig + 1
    Wend
    .Cells(lig, "F") = [Total_HT]
    .Cells(lig, "J") = [Total_TTC]
    .Activate 'facultatif
End With '1ère cellule vide
End Sub

J'ai eu des problèmes avec votre fichier, il semble corrompu, il faudra sans doute le refaire.

A+

 

Pièces jointes

• testons(1).xlsm

  88.7 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Janvier 2022

• #9

Cette macro, plus simple, va bien aussi, fichier (2) :

VB:

Sub Copier()
With Sheets("TdB")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A1].CurrentRegion
        .Cells(.Rows.Count + 1, 6) = [Total_HT]
        .Cells(.Rows.Count + 1, 10) = [Total_TTC]
    End With
    .Activate 'facultatif
End With '1ère cellule vide
End Sub

 

Pièces jointes

• testons(2).xlsm

  88.8 KB · Affichages: 6

Vote positif 0 Vote négatif

L

lagodille

XLDnaute Occasionnel

• 25 Janvier 2022

• #10

job75 à dit:

Cette macro, plus simple, va bien aussi, fichier (2) :

VB:

Sub Copier()
With Sheets("TdB")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .[A1].CurrentRegion
        .Cells(.Rows.Count + 1, 6) = [Total_HT]
        .Cells(.Rows.Count + 1, 10) = [Total_TTC]
    End With
    .Activate 'facultatif
End With '1ère cellule vide
End Sub

Cliquez pour agrandir...

Bonjour Job75,

d'abord merci pour ton aide car je patauge un peu

j'ai joint mon fichier et cela ne fonctionne pas bien .
Si tu peux corriger et surtout m'expliquer pourquoi

merci
cordialement

 

Pièces jointes

• Testons(3).xlsm

  71.1 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Janvier 2022

• #11

Dans la feuille DEVIS vous n'avez pas nommé les cellules à copier.

Et dans la feuille TdB au départ il ne faut pas de formules en colonne N

A condition que la formule ait un sens vous pouvez l'entrer en colonne N sur la même ligne que les valeurs entrées..

Bonne nuit.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Janvier 2022

• #12

Bonjour le fil, bonjour le forum,

Finalement...

 

Vote positif 0 Vote négatif