Insertion de ligne si cochées

Bonjour et excusez moi j'ai voulus aller trop vite

Je reprend depuis le début, voila j'ai établie un carnet de nutrition dans lesquelle j'ai plusieurs feuille, dans ma feuille "Tableaux des Aliments" j'ai toute une liste d'aliments avec les calories etc, je souhaiterai si c'est possible que en cliquant sur mon bouton 2 que les aliments que je choisie via la colonne "G" en inscrivant "1" pour déjeuner, 2 pour collations de 10h, 3 pour diner, 4 pour collations de 15h et 5 pour le souper que tout ce jolie petit monde aille ce placer dans la feuille "Calcule journalier" en L4 et ainsi de suite en prenant en conpte les espacement definie et si possible toujours quand je coche d'autre aliment que ceux deja inserer soit remplacer.

Etant vraiment nul en programation je vous demande votre aide et encore désollé pour le precedent post .

Merc

Tu vas te faire gronder (ou fermer ton post plutôt) par les modos, reposte ton message avec un sujet explicite et une petite relecture ne fera pas de mal!

Edit : CQFD...

Bonjour et bienvenue

Reuk a tout à fait raison :

Extrait de la Charte :

3 - choisissez un titre suffisamment explicite pour votre nouveau sujet (évitez les titres trop vagues tels que "besoin d'aide c'est URGENT" ou encore "j'ai un problème")...

Je ne verrouille pas ton fil ; édite-le et change le titre.

Amicalement

Nad

Petit Up étant donné que j'ai éditer mon premier message

-- 08 Juin 2011, 18:01 --

j'arrive enfin à mettre mes données à la bonne place mais quand je choisi mettons 2 ou 3 aliment pour mon diner ou autre il n'en copie que un seul dans mes colonne ?

voici le code :

Sub Macro6()
Dim Var_AB As Integer, dlg As Integer
    Dim hlg
    'Pour le déjeuner'
    For Var_AB = 2 To Range("G65536").End(xlUp).Row
    If UCase(Range("G" & Var_AB)) = "1" Then
    ok = True
    hlg = Range("A" & Var_AB & ":Y" & Var_AB).Height
    With Sheets("Feuil1")
        Range("A" & Var_AB & ":G" & Var_AB).Copy .Range("L4")
    End With
    End If
    'Pour la Collation de 10H'
        If UCase(Range("G" & Var_AB)) = "2" Then
    ok = True
    hlg = Range("A" & Var_AB & ":Y" & Var_AB).Height
    With Sheets("Feuil1")
        Range("A" & Var_AB & ":G" & Var_AB).Copy .Range("L18")
    End With
    End If
    'Pour le diner'
        If UCase(Range("G" & Var_AB)) = "3" Then
    ok = True
    hlg = Range("A" & Var_AB & ":Y" & Var_AB).Height
    With Sheets("Feuil1")
        Range("A" & Var_AB & ":G" & Var_AB).Copy .Range("L11")
    End With
    End If
    'Pour la collation de 15h'
        If UCase(Range("G" & Var_AB)) = "4" Then
    ok = True
    hlg = Range("A" & Var_AB & ":Y" & Var_AB).Height
    With Sheets("Feuil1")
        Range("A" & Var_AB & ":G" & Var_AB).Copy .Range("L23")
    End With
    End If
    'Pour le souper'
        If UCase(Range("G" & Var_AB)) = "5" Then
    ok = True
    hlg = Range("A" & Var_AB & ":Y" & Var_AB).Height
    With Sheets("Feuil1")
        Range("A" & Var_AB & ":G" & Var_AB).Copy .Range("L29")
    End With
    End If
    Next
    Sheets("Feuil1").Range("R6:R65536").ClearContents
    Range("G6:G65536").ClearContents
    ok = False

End Sub

Bonjour

Un essai

ouahh génial c'est presque ca tu ne sais pas ajouter les autres lignes car j'ai besoin des calorie, glucide et tout

et si se n'est pas abusé j'aimerai que les chiffres en G dans le tableaux des aliments disparaisse apres le click et quand je change les alimants pour les jours suivant que ceux qui sont déja inscrit soit remplacer c'est possible ca ??

en tout cas deja merci ca avance c'est génial

Bonjour

Une suite

Oh merci c'est exactement ce qu'il me falait je ne sais comment vous remercier

encore mille merci

C'est en haut à droite des messages postés, tu choisis celui dans lequel tu as eu la meilleure réponse.