Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir une colonne en fonction des valeurs d'une autre colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JZAB
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JZAB

Guest
Bonjour,

je débute avec VBA et j'ai une question concernant les boucles.

je voudrais simplifier le code ci-dessous :

(je n'ai mis que la partie concernée)

If numero1 > strike Then
Sheets("Feuil2").Range("C8").Value = numero1 - Points
Else
Sheets("Feuil2").Range("C8").Value = strike - Points
End If
If numero2 > strike Then
Sheets("Feuil2").Range("C9").Value = numero2 - Points
Else
Sheets("Feuil2").Range("C9").Value = strike - Points
End If
If numero3 > strike Then
Sheets("Feuil2").Range("C10").Value = numero3 - Points
Else
Sheets("Feuil2").Range("C10").Value = strike - Points
End If
If numero4 > strike Then
Sheets("Feuil2").Range("C11").Value = numero4 - Points
Else
Sheets("Feuil2").Range("C11").Value = strike - Points
End If
If numero5 > strike Then
Sheets("Feuil2").Range("C12").Value = numero5 - Points
Else
Sheets("Feuil2").Range("C12").Value = strike - Points
End If
If numero6 > strike Then
Sheets("Feuil2").Range("C13").Value = numero6 - Points
Else
Sheets("Feuil2").Range("C13").Value = strike - Points
End If
If numero7 > strike Then
Sheets("Feuil2").Range("C14").Value = numero7 - Points
Else
Sheets("Feuil2").Range("C14").Value = strike - Points
End If
If numero8 > strike Then
Sheets("Feuil2").Range("C15").Value = numero8 - Points
Else
Sheets("Feuil2").Range("C15").Value = strike - Points
End If
If numero9 > strike Then
Sheets("Feuil2").Range("C16").Value = numero9 - Points
Else
Sheets("Feuil2").Range("C16").Value = strike - Points
End If
If numero10 > strike Then
Sheets("Feuil2").Range("C17").Value = numero10 - Points
Else
Sheets("Feuil2").Range("C17").Value = strike - Points
End If
If numero11 > strike Then
Sheets("Feuil2").Range("C18").Value = numero11 - Points
Else
Sheets("Feuil2").Range("C18").Value = strike - Points
End If
If numero12 > strike Then
Sheets("Feuil2").Range("C19").Value = numero12 - Points
Else
Sheets("Feuil2").Range("C19").Value = strike - Points
End If
If numero13 > strike Then
Sheets("Feuil2").Range("C20").Value = numero13 - Points
Else
Sheets("Feuil2").Range("C20").Value = strike - Points
End If
If numero14 > strike Then
Sheets("Feuil2").Range("C21").Value = numero14 - Points
Else
Sheets("Feuil2").Range("C21").Value = strike - Points
End If
If numero15 > strike Then
Sheets("Feuil2").Range("C22").Value = numero15 - Points
Else
Sheets("Feuil2").Range("C22").Value = strike - Points

Merci de votre aide.
End If
 
Trier par date Trier par votes
Re : Remplir une colonne en fonction des valeurs d'une autre colonne

Re,

ce sont donc des variables en l'état ? comment sont elles initialisées ? peut être mettre un petit fichier avec ce que tu as et résultats attendus.... pas facile de t'aider avec un petit bout de code jeté sur un post....
 
Vote positif 0 Vote négatif
Re : Remplir une colonne en fonction des valeurs d'une autre colonne

Je m'en doutais un peu 🙄...

j'ai mis en pièce jointe la partie du code qui m'interesse.

Merci pour ton aide en tout cas.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Remplir une colonne en fonction des valeurs d'une autre colonne

Re,

regarde ceci :
Code: 
Dim t As Variant, i As Byte
t = Application.Transpose(Sheets("NomFeuille1").Range("B8:B22"))
With Sheets("NomFeuille2")
    For i = 1 To 15
        If t(i) > strike Then
            .Cells(i + 7, 3).Value = t(i) - Points
        Else
            .Cells(i + 7, 3).Value = strike - Points
        End If
    Next i
End With

A adapter à ton projet.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
634
anthoYS
C
  • Résolu(e)
XL 2021 Remplir données devis en vba avec descriptions/quantités/PUs alignés
2
Réponses
18
Affichages
2 K
Phil69970
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
829
dadu35
D
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
630
AtTheOne
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
681
Jojo973
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
886
Zonmé
Z
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
969
Compte Supprimé 979
C
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
631
ZiM
Z
Q
  • Résolu(e)
Microsoft 365 Exécutions directes différentes vs "pas à pas"
Réponses
2
Affichages
647
Quentin2106
Q
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
568
vgendron
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
753
chaelie2015
Z
  • Question Question
XL 2010 tableau pour comparer deux colonnes et écrire le résultat dans une troisième colonne
2
Réponses
28
Affichages
3 K
zephir94
Z
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
693
tactic6
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
693
ChTi160
F
  • Résolu(e)
XL 2019 Enregistrer sous la feuille active dans répertoire du fichier père en vba
2
Réponses
23
Affichages
2 K
Fabrice16ct
F
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
934
ccia
C
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
834
Francky79
F
B
  • Résolu(e)
Microsoft 365 Création fonction rechercheV utilisant le resultat d'une autre
Réponses
11
Affichages
1 K
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…