Astuces Excel
  1. Astuces Excel
  3. LOOP et nested si les instructions ne fonctionnent pas
Intereting Posts
Aide Excel – Comment supprimer les duplicates des colonnes multiples Mettre la date d'aujourd'hui dans les cellules vierges Code VBA pour convertir les hauteurs Copier en profondeur ou cloner un jeu d'loggings ADODB dans VBA Puis-je regrouper cette équation ici dans Excel? = SUM (E6: E13) / 4 SQL pivot nested "Le file est corrompu et ne peut pas être ouvert" export vers xls en utilisant filesaver.js en angular concaténer la gamme 3d dans Excel comment sortinger les colonnes dans Excel et calculer la sum des données de groupe Comment mettre en surbrillance les cellules lors de l'utilisation du formatting conditionnel Excel VBA? Date colonne détectée par VarChar par SQL Server Import Wizard Liste des cellules CSV ayant la même valeur dans R ou Python? Ajouter un signe de livre à ma formule dans Excel Cas de sélection multiple compliqué, déclarations de variables, définitions de scope Définition d'une variable locale à partir d'une variable publique sur un autre formulaire lors de l'initialisation du formulaire

LOOP et nested si les instructions ne fonctionnent pas

Le code est destiné à searchr le "Oui" dans "OverExtensions" et va créer une nouvelle gamme et déterminer la valeur maximale de la nouvelle gamme. Pour une raison quelconque, la logique du code semble bien, mais j'obtiens un résultat vide et j'aimerais les commentaires de la communauté quant à l'endroit où j'ai mal tourné. 

Private Sub CommandButton1_Click() Dim maximum As Double, OverExtension As Range, x As Range Cells.Interior.ColorIndex = 0 Set OverExtension = Range("D2:D12") maximum = WorksheetFunction.Max(Range("c2:c12")) For Each x In OverExtension If x.Value = Yes Then If x.Offset(0, -1).Value = maximum Then x.Cells.Interior.ColorIndex = 22 End If End If Next x End Sub

Vous avez nested les blocs if et for de manière incorrecte.

Vous devez mettre la deuxième End If entre Next PriceNo et Next OEResult .

Mettre à jour:

Vous avez besoin d'une seule End If . Le premier est faux car If et Then sont en une seule ligne.

En outre, vous avez un problème avec vos variables OEYes et OEResult car elles sont définies mais non initialisées mais, comme je ne connais pas votre intention, je ne sais pas non plus comment la résoudre.