Excel VBA remplissage automatique selon somme voulu

Bonjour,

Oui, c'est surement possible. Mais ont est pas là pour te fournir un code entier "tout cuit". Je pense qu'il y'a suffisamment de ressources disponibles pour commencer par toi même, et revenir nous voir avec au moins une "ébauche" de code et des questions plus précises.

Cdlt.

Bonjour,

Mon code fonctionne mais est très long car que des répétitions sans arrêt.

Nbr_poteau est déclarer en public et récupère un nombre dans une autre macro.

Voici mon début de code ou je met des conditions a chaque fois que la plage change

Sub Remplissage

    Dim Plage As currency

    Plage = Nbr_Poteau +1

If Plage = 2 Then
    If Range(A1) = "" And Range(A2) <> "" Then
    Range(A1) = Range(B1).Value - (Range(A2).Value)
    End If

     If Range(A2) = "" And Range(A1) <> "" Then
    Range(A2) = Range(B1).Value - (Range(A1).Value)
    End If

End if

If Plage = 3 Then
    If Range(A1) = "" And Range(A2) <> "" And Range(A3) <> "" Then
    Range(A1) = Range(B1).Value - (Range(A2).Value + Range(A3).Value)
    End If

     If Range(A2) = "" And Range(A1) <> "" And Range(A3) <> "" Then
    Range(A2) = Range(B1).Value - (Range(A1).Value + Range(A3).Value)
    End If

     If Range(A3) = "" And Range(A1) <> "" And Range(A2) <> "" Then
    Range(A3) = Range(B1).Value - (Range(A1).Value + Range(A2).Value)
    End If
End if

If Plage = 4 Then
    If Range(A1) = "" And Range(A2) <> "" And Range(A3) <> "" And Range(A4) <> "" Then
    Range(A1) = Range(B1).Value - (Range(A2).Value + Range(A3).Value + Range(A4).Value)
    End If

    If Range(A2) = "" And Range(A1) <> "" And Range(A3) <> "" And Range(A4) <> "" Then
    Range(A2) = Range(B1).Value - (Range(A1).Value + Range(A3).Value + Range(A4).Value)
    End If

    If Range(A3) = "" And Range(A1) <> "" And Range(A2) <> "" And Range(A4) <> "" Then
    Range(A3) = Range(B1).Value - (Range(A1).Value + Range(A2).Value + Range(A4).Value)
    End If
     
    If Range(A4) = "" And Range(A1) <> "" And Range(A2) <> "" And Range(A3) <> "" Then
    Range(A4) = Range(B1).Value - (Range(A1).Value + Range(A2).Value + Range(A3).Value)
    End If
End if

End Sub

Je souhaiterai donc un code plus simple mais je n'arrive pas.

Alors je sollicite votre aide.

Bonjour,

Merci beaucoup de ton aide

Ton code fonctionne bien, mais je doit l'adapter pour qu'elle ne s'active uniquement quand 1 seule cellule est vide. car c'est une macro qui se déclenche en automatique "Private Sub Worksheet_Change(ByVal Target As Range)" et du coup ca beugue.

Dès que la cellule A1 est remplis il n'attend pas de remplir d'autre cellule selon la plage, mais il met directement en A2 le résultat.

Je vais l'ajuster par rapport a mes cellules. et si vraiment j'y arrive pas je reviendrais pour demander de l'aide ou bien cloturer le sujet si j'y suis arrivé.

Bonne fin de journée et encore merci.

Bonjour,

Ca fonctionne merci beaucoup,

J'ai mis une boucle for pour compter le nombre de cellule pleine dans le nombre de cellule de la plage .

Et si nombre de cellule pleine = nombre de cellule plage - 1 alors appel la macro pour remplir la dernière cellule. Sinon rien

Merci T3chN0g3n pour ton aide, et pour répondre a ta question sur le Currency.

Je met tout les chiffres en Currency au cas ou j'ai une virgule, car j'ai déjà essayé single et double, mais il me limite en décimal, alors du coup je met tout en Currency.

ça peut poser problème si dans un cas ou on est sûr d'avoir un chiffre entier comme dans ce cas-ci de ne pas le déclarer en byte, integer ou long ??

Bonne journée et encore merci.