[Résolu] Soucis sur une macro

re,

Je ne vois toujours pas les %, et la colonne B (données) est vide !

envoie quelque chose de + représentatif, avec des annotations j'essayais d'éviter les

formules.

écrit à la main le résultat attendu

as-tu vraiment besoin des 3 colonnes sur feuille Récap ? avec les formules ?

Claude.

Bonjour Claude,

Je ne vois toujours pas les %, et la colonne B (données) est vide !

Que la colonne B ( donnée ) soit vide est normal, car c'est en remplissant cette colonne que le courrier va s'automatiser.

En fait, la feuille donnée regroupe toutes les informations utiles à la vente, ces données sont saisies manuellement et grâce à elles, d'autres feuilles vont s'automatiser dont mon courrier.

as-tu vraiment besoin des 3 colonnes sur feuille Récap ? avec les formules ?

Disons que c'est une préférence, à choisir je préfère que ce soit les données de recap qui soient copier dans le courrier, maintenant si c'est trop contraignant, on peux toujours essayer de concatener les colonnes B et A de "donnée" ( dans cet ordre ) directement.

écrit à la main le résultat attendu

Je joins un autre fichier avec des commentaires et un exemple pour que ca soit plus clair.

https://www.excel-pratique.com/~files/doc/wVM9xFeuilles_SIP.rar

Merci de ton investissement,

Cordialement,

Syon

re,

solution simple :

à condition que la cellule courrier B35 ne soit pas vide (au besoin, mets une apostrophe)

tu vire les formules dans récap.

Sub Ajoute()
Dim N
Dim i As Integer
Dim k As Variant
    Application.ScreenUpdating = False
Range("courrier!b36:b47").ClearContents
Range("Recap!c2:c15").ClearContents
    N = WorksheetFunction.CountA(Range("b33:b44"))
        If N = 0 Then Exit Sub
            Range("b33").Activate
                Do While ActiveCell = ""
                    ActiveCell.Offset(1, 0).Select
                Loop
    For i = 1 To N
saute:          If ActiveCell = "" Then
                    ActiveCell.Offset(1, 0).Select
                    GoTo saute
                End If
            k = ActiveCell & " " & ActiveCell.Offset(0, -1)
            Range("Recap!c65536").End(xlUp)(2) = k
            Range("courrier!b48").End(xlUp)(2) = k
            ActiveCell.Offset(1, 0).Select
    Next i
End Sub

dis-moi

Claude.

édit: ajout 2 lignes avant le N = pour effacer

Et bien tout marche merci et bravo à toi !

Je ne comprends absolument pas sa signification, mais elle marche x)

Pourquoi t'es tu servis de Récap dans ta macro alors que d'aprés ce que j'ai pu voir, les données dans le courrier proviennent de la feuille donnée non ?

Je ne voudrais pas abuser, mais serais-ce possible d'avoir sa signification ( du moins les grandes lignes ) ? Que je puisse résoudre un éventuel soucis moi meme à l'avenir.

Merci encore Claude,

Syon

re,

explications macro :

https://www.excel-pratique.com/~files/doc/expli_macro.xls

et n'oublie pas de mettre ce fil en résolu !

à+.....Claude

Que demander de plus .. vraiment, merci