Astuces Excel
  1. Astuces Excel
  3. Sous appel avec 2 parameters définis
Intereting Posts
jqgrid excelExport comment utiliser exportOptions? Existe-t-il un caractère dans Excel pour masquer un STRING à l'aide de la fonction TEXT? Sélection de toutes les lignes avec le même numéro d'identification, puis itération – VBA Insertion de données dans ListObject; erreur d'exécution 438 Copier Coller la plage dans l'erreur Excel VBA Copier la formule conditionnelle aux cellules dans une colonne Filtre Excel vers une nouvelle feuille VBA crash lors de la modification de la feuille de calcul de la list déroulante Utilisation d'une autre colonne comme reference en format conditionnel. Comment sauter des colonnes vierges dans une gamme? Excel Countif Non égal à la longueur de string de zéro Changements de valeur de capture dans les cellules miroirées Suppression des duplicates en fonction de leur occurrence Créer un classur avec plusieurs feuilles de Requêtes Excel: searchz la valeur dans une colonne de table et trouvez la valeur la plus proche dans une autre colonne peu peuplée

Sous appel avec 2 parameters définis

J'essaie d'appeler un sous-set dans ma principale et je remplis essentiellement une autre colonne avec cette sous-catégorie. Mais je reçois une erreur de syntaxe. Pourquoi est-ce? 

Option Explicit Private Sub Form_Load() Dim myssortingng As Ssortingng, i As Long, asciinum As Ssortingng, f As Long With Worksheets("sheet1") For f = 2 To .Cells(.Rows.Count, "I").End(xlUp).Row myssortingng = .Cells(f, "I").Value2 prueba1 (myssortingng, f) Next f End With End Sub Sub prueba1(myssortingng, index As Long) Dim i As Long, asciinum As Ssortingng For i = 1 To Len(myssortingng) asciinum = LCase(Mid(myssortingng, i, 1)) If asciinum Like "[aeiou]" Then .Cells(index, "M") = "First Vowel " + asciinum Exit For End If Next i End Sub

  • prueba1 (myssortingng, f) doit être prueba1 myssortingng, f
  • prueba1(myssortingng, index As Long) doit être prueba1(myssortingng AS STRING, index As Long)
  • Il n'y a pas de feuille de travail parent dans un With … End With dans prueba1 mais vous utilisez .Cells au lieu de Cells . Au minimum, il devrait s'agir de Worksheets("sheet1").Cells(index, "M") = "First Vowel " + asciinum