Inscrire une valeur dans une cellule VBA
Résolu
nathan027
Messages postés
101
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 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
A voir également:
- Inscrire une valeur dans une cellule VBA
- Aller à la ligne dans une cellule excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Comment s'inscrire sur vinted - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
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
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
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 :
à tirer vers le bas
eric
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
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
En fait Quand dans la cellule F11 il y écrit "F" je veux que dans G11 il y ai écrit 100%
donc de F11 à F1500 et de G11 à G1500
Suis je clair ? (quand on écrit c'est parfois difficile de retranscrire ce qu'on pense)