Bonjour

 

Merci de ton fichier

Toutefois, pourrais-tu me montrer ce que tu veux au final comme tableau. A la lecture de ta demande il s'agirait d'avoir uniquement la valeur 207,3 + 5 ??

 

Crdlt

Bonjour,

 

Sans fichier ce n'est pas facile de simuler et apporter une solution à ton souci

 

Toutefois, pourquoi ne pas utiliser la fonction LIREDONNEESTABCROISDYN en créant un tableau à coté du TCD en question

 

Cordialement

Bonjour

 

Une première approche avec ce code

 

Public valeur as string
Sub test()
Rep = MsgBox("Saisir l'album" & "Continuer ?", vbYesNo + vbQuestion)

If Rep = vbYes Then
    valeur = Application.InputBox(prompt:="Entrer votre valeur")
Else
   MsgBox "Procédure terminée", vbInformation
End If
If valeur = True Then
MsgBox "ok"
End If
End Sub

Par la déclaration en en-tête de module, la variable "valeur" pourra être réutilisée ailleurs dans ton projet et ce, jusqu'à ce que tu fermes ton fichier

 

A te relire sur cette proposition

 

Crdlt

Bonsoir,

Voici un code à placer dans un module et lui associer éventuellement un bouton.


Amicalement

Edit dan : Afin que le code fonctionne, veille à ce que les mots "extrait 1", etc dans ta feuille synthèse (cellule G9 à K9) soit exempt des guillemets.

 Bonjour,

Cette ligne permet de connaitre la dernière colonne utilisée sur la ligne 3 dans ta feuille.
IV étant la dernière colonne de ta feuille si ta version d'excel est 2003 ou inférieur.

Amicalement

Re,

Citation :
Je suis le fil avec les interventions de mth mais j'ai toujours peine à comprendre ce que tu veux avoir.

Bon là tu as posté un fichier Xl2007 que je ne peux lire.
Sinon pour répondre à ton dernier post. Avec : Le code agira entre A12 et la ligne de la cellule en colonne A sur laquelle tu es positionné.

Amicalement

 Re,

Oulà, on va pas s'en sortir si on répond à deux demandes sur le même fil.

Pour Mth, essaie comme ceci :

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'code pour copie de ligne a revoir
Dim Lg As Integer
Lg = Range("a1120").End(xlUp).Row
    If Not Intersect(Target, Range("a11:a" & Lg)) Is Nothing Then
        Application.EnableEvents = False
            If Target = "Fin Broyage" Then
                Range("A" & Lg & ":V" & Lg).Copy
                With Range("a" & Lg + 1)
                  .PasteSpecial Paste:=xlPasteFormats
                  .clearcontents
                  End With
            End If
    End If
        Application.EnableEvents = True
        Application.CutCopyMode = False
End Sub

Pour claude, ta demande me fait penser à ce fil --> http://www.excel-pratique.com/forum/viewtopic.php?t=14086

Amicalement

Bonjour,

Tu dis "tant que la cellule A11 n'indique pas  "Fin de Broyage"". Mais on doit recopier la ligne où et combien de fois ?

Par ailleurs est-il nécessaire d'avoir une cellule fusionnée en A11-C11 ? le mieux est toujours d'éviter les cellules fusionnées lorsque tu fais appel à VBA.

A te relire

Bonjour à tous et à toi mon ami Didier,

Juste un petit message pour signaler une demande identique et proposition ici --> http://www.excel-pratique.com/forum/viewtopic.php?p=75013#75013

Bon dimanche à tous

Amicalement

Dan