Passer a la cellule suivante

Bonjour

J’ai un petit soucis , voila je voudrait qu'une cellule se remplisse automatiquement (avec le résultat d'une formule) la cellule suivante .

J'ai réussi mais seulement pour que la cellule passe de d11 a d12 mais après je bloque.

En gros je voudrait qu'une cellule se remplisse si D11 = une valeur et si D12 = une valeur

Ou plus simple a chaque fois que j'active la macro ça change de cellule.

Sub Macro1()
'
' Macro1 Macro
'

'
Range("E17").Select
    If Range("E17") = Value Then
    'faire ceci
    ActiveCell.FormulaR1C1 = "=Type!R[24]C[-1]-Feuil2!RC[-1]"
    Range("E18").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("M2").Select
Else
    'sinon faire cela
    Range("E19").Select
        ActiveCell.FormulaR1C1 = "=Type!R[23]C[-1]-Feuil2!RC[-1]"
    Range("E19").Select
    ActiveWindow.SmallScroll Down:=-9

Voila le code que j'utilise pour le moment mais il ne fonctionne que pour deux cellule pas pour la suite

Bonjour oudin

dans le code suivant si D11=toto et D12=12,

alors A3=Gagné.

Sub toto()
If Range("d11").Value = "toto" And Range("d12").Value = 12 Then
Range("a3").Value = "Gagné"
End If
End Sub

Cordialement.

Bonjour ,

Tout d’abord merci alfa9 pour ta réponse, en fait se que je souhaite faire est un peut compliquer

Je voudrait que D11 se remplisse suivant des certaines données (ça pas de soucis )

Que D12 se remplisse si D11 et déjà remplis avec les même données que celles qui aurait remplis D11 (ça pas de soucis)

Que D13 se remplisse si D11 et D12 et déjà remplis avec les même données que celles qui aurait remplis D11 (la je bloque)

Et ce jusqu’à D25 .

J’ai comme projet un gestionnaire de stock, en gros quand j’appuie sur le bouton de la macro ' ça me remplis les donner d'expédition du colis, bac ou palette avec les longueur largeur hauteur et la tare correspondante.

Je ne sais pas si j'ai été très claire en m'en excuse d'avance si c'est pas le cas.

Dans l'attente d'avoir un ou une sauveur.

Bonjour oudin ,

Effectivement,posé ainsi le problème n'a rien à voir avec la demande de départ.

En tout cas ta réponse aura l'avantage de faire remonter le sujet,et donnera sans doute l'envie à quelqu'un

de proposer une solution.

Cordialement .

alfa9.

Merci , oui c'est vrais que mon premier message n’était pas claire.

J'ai oublier de préciser que dans le même temps ça modifie mes stocks suivant la quantité et le client

Ça devient plus compliquer , en fait le but et que quand je clique sur le bouton carton (exemple: ref 12) ça remplis automatiquement les dimension et la tare et que ça décompte le nombres utiliser de mes stock en remplissant la cellule demander (et la prochaine pour les autres expéditions) mais également que ça remplisse les données du tableau des stock contenant du client si c'est sont contenant.

En gros je veut faire du trois en un.

Je met en pièces jointe le type du fichier en question

Voila ce que j'ai réussi a faire il me reste a trouver un moyen de suivre . et aussi de trouver un moyen pour que la case des stocks actuelle avec laquelle le calcule ce fait, soit aussi modifier.

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D19:E19").Select
    ActiveCell.FormulaR1C1 = "Palette"
    Range("D21:E21").Select
    ActiveCell.FormulaR1C1 = "120"
    Range("G21:H21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D23:E23").Select
    ActiveCell.FormulaR1C1 = "80"
    Range("D25:E25").Select
    ActiveCell.FormulaR1C1 = "12"
    Range("N21").Select
    Sheets("Stock Carton-Bac-Palette").Select
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "J17"
    Sheets("Type").Select
    ActiveWindow.SmallScroll Down:=-3
    Sheets("Type").Select

Sheets("Stock Carton-Bac-Palette").Select
Range("J20").Select
    If Range("J20") = Value Then
    'faire ceci
   Range("J20") = "=Type!D41+'Stock Carton-Bac-Palette'!H20"
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("M2").Select
Else
    'sinon faire cela
   Range("K20") = "=Type!D41+'Stock Carton-Bac-Palette'!H20"
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9

End If

    End Sub

Bonjour,

Bon j'ai réussi a faire que tout fonctionne mais ne parvient pas a faire suivre.

Les information se remplisse automatiquement le calcule des stocks ce fait correctement mais pas le changement de cellule,

La je bloque complétement. séparément tout va bien mais une fois réunis c'est la cata.

J'ai utilisé les deux façon de faire différente et obtient le même résultat

Code 1

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D19:E19").Select
    ActiveCell.FormulaR1C1 = "Palette"
    Range("D21:E21").Select
    ActiveCell.FormulaR1C1 = "120"
    Range("G21:H21").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D23:E23").Select
    ActiveCell.FormulaR1C1 = "80"
    Range("D25:E25").Select
    ActiveCell.FormulaR1C1 = "12"
    Range("N21").Select

    Sheets("Stock Carton-Bac-Palette").Select
Range("J20").Select
    If Range("J20") = Value Then
    'faire ceci
   Range("J20") = Range("Type!D41")
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("H20") = Range("H20") + Range("J20")
    Range("M2").Select
Else
    'sinon faire cela
   Range("K20") = Range("Type!D41")
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("H20").Select
Range("H20") = Range("H20") + Range("K20")

End If

    End Sub

Code 2

Sub Macro65()
'
' Macro65 Macro
'

'
    'Variables
    Dim note As Integer, commentaire As String
    Sheets("Stock Carton-Bac-Palette").Select
    note = Range("J20")

    'Commentaire en fonction de la note
    Select Case note    ' <= la valeur à tester (ici, la note)
    Case Is = Value         ' <= si la valeur = 6
     Range("J20") = Range("Type!D41")
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("H20") = Range("H20") + Range("J20")
    Range("M2").Select

    Case Else           ' <= si la valeur n'est égale à aucune des valeurs ci-dessus
    Range("K20") = Range("Type!D41")
    Range("D19").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("H20").Select
    Range("H20") = Range("H20") + Range("K20")
    End Select

    'Commentaire en B1
End Sub

Tout ce fait jusqu’à la cellule K20 mais après je ne sait pas comment lui dire de faire la même chose pour la cellule suivantes et les autres encore après

Si vous pouvez me sortir du fond de mon trous je vous en serait très reconnaissant, la je bloque et sature

Si j'utilise ActiveCell.Offset(0, 1).Select en lui disant de sélectionner la cellule d’après, ça pourrait fonctionner???