Inscrire une valeur dans une cellule VBA
Résolu
nathan027
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
J'aimerai savoir s'il est possible de donner une valeur à une cellule en fonction de ce qui serait écrit dans une autre sans avoir a écrire dans la cellule (en passant par VBA je suppose)
Ce que je voudrai c'est ça en gros
Quand dans ma cellule F15 il y la lettre "F" que ma cellule H15 = 100%
ceux de la ligne F11 à F1500
Merci d'avance
J'aimerai savoir s'il est possible de donner une valeur à une cellule en fonction de ce qui serait écrit dans une autre sans avoir a écrire dans la cellule (en passant par VBA je suppose)
Ce que je voudrai c'est ça en gros
Quand dans ma cellule F15 il y la lettre "F" que ma cellule H15 = 100%
ceux de la ligne F11 à F1500
Merci d'avance
4 réponses
-
Bonjour,
ceux de la ligne F11 à F1500
Oui ? Et ?
Tu as oublié la fin de ta phrase...
Et j'ai bien l'impression qu'une simple formule suffise.
eric
-
J'ai réussi à trouver je partage (pensez juste à mettre les cases en %)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 6 Then
Select Case Target.Value
Case "n"
Cells(Target.Row, 7) = "1"
Case Else
Cells(Target.Row, 7) = ""
End Select
End If
End Sub -
Bonjour,
tu parles de "F", ensuite c'est "n"...
Tu parles de la colonne H qui devient G...
Essaie d'être cohérent.
Pas besoin de macro, en G11 :=SI(F11="F";1;"")
à tirer vers le bas
eric
-
c'est exactement pareil en fait j'ai juste changé quelques petites choses dans mon tableau donc les colonnes ne sont plus les même et pour la lettre "n" ou "F" .. si juste un changement de lettre perturbe les gens ...
Et non si j'avais voulu une fonction "SI" , je n'aurais pas précisé que je voulais du VBA ... ma cellule devait rester libre d'écrire autre chose.
Mais pour être cohérent avec le poste de départ
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 5 Then
Select Case Target.Value
Case "F"
Cells(Target.Row, 6) = "1"
Case Else
Cells(Target.Row, 6) = ""
End Select
End If
End Sub
-
-
Pas bonjour non plus,
en disant : en passant par VBA je suppose , ne sous-entend pas vba obligatoire...
Ton code pourrait être beaucoup plus court mais bon.=1
(numérique) et non = "1" (chaine)
Sinon le format % ne fera rien.
eric
