Transfert d'une cellule a l'autre conditionnel

Résolu
pyrus2047 Messages postés 156 Statut Membre -  
JuanLucas38 Messages postés 59 Statut Membre -
Bonjour,
Je souhaite que si la cellule "AI3" est vide alors la cellule "K3" prend la valeurs "xxxxx"
jusque'la c'est ok
mon souci et que je voudrais pouvoirs modifier la valeurs "xxxxx"si besoin la cellule "K3"
si vous avez une solution merci d'avance
Cordialement

Private Sub Worksheet_Change(ByVal Target As Range)

If Cells(3, 34).Value <> "" Then
Else: Cells(3, 11).Value = ("xxxxx")
End If
End Sub


1 réponse

  1. JuanLucas38 Messages postés 59 Statut Membre 4
     
    Dans ce cas affecte une cellule au choix ou tu mettra la valeur souhaitée dans K3
    Exemple : dans la cellule M1 tu mets la valeur que tu souhaites avoir en K3 et dans ce cas ton sera :


    Private Sub Worksheet_Change(ByVal Target As Range)

    If Cells(3, 34).Value <> "" Then
    Else: Cells(3, 11).Value = Cells(1, 13).Value
    End If
    End Sub
    0
    1. pyrus2047 Messages postés 156 Statut Membre
       
      Bonjour
      merci beaucoup
      mais ce if va aller dans une boucle sur plusieurs lignes plusieurs colonnes donc je ne peux pas me permettre
      de déporter a chaque fois la cellule de modification
      j'ai absolument besoin de modifier dans la cellules concerner
      Cordialement
      0
      1. JuanLucas38 Messages postés 59 Statut Membre 4 > pyrus2047 Messages postés 156 Statut Membre
         
        Je ne suis pas sur d'avoir tout compris en ce qui concerne ton besoin exact.
        tes "xxxx" dans ce cas deviennent une variable. Tu peux lui affecter la valeur que tu veux à tout moment.
        A quoi correspondent ces "xxxx" ?
        0