Vba Fonction de variable equivalent C

Fermé

dieselpilot - 7 juin 2012 à 09:44
Utilisateur anonyme - 7 juin 2012 à 10:13

Bonjour,

Bonjour à tous,

Voiçi la question que je me pose et dont je me creuse la tete depuis plusieurs jours :

en C lorsqu'on crée ujne fonction avec des variables type :
int Crit (x,y);

puis ensuite on la rappel :

Crit(8,9);

Quel est l'equivalent en VBA ?

Ex ci-dessous avec ma fonction qui remet des cellules en caractere normal et fond blanc d'une plage X, Y et dont j'aimerai la faire varier en fonction des besoins.

Sub RAZ(X, Y)

'
' RAZ Macro
'
' Programme de Reset
Dim Maplage As Range
Set Maplage = ThisWorkbook.Worksheets("Maintenance&navigabilité").Range("X:Y")

For Each Cellule In Maplage.Cells
Cellule.Interior.ColorIndex = RGB(0, 0, 0)
Cellule.Font.ColorIndex = 1
Cellule.Font.Bold = False
Next Cellule
MsgBox (" The End ")

End Sub

A voir également:

Vba Fonction de variable equivalent C
Fonction si et - Guide
Equivalent coco - Accueil - Réseaux sociaux
Équivalent coco - Accueil - Réseaux sociaux
Equivalent wawacity - Accueil - Outils

1 réponse

Réponse 1 / 1

Utilisateur anonyme
7 juin 2012 à 10:13

Bonjour

Le principe d'appel des fonctions de VBA est très voisin de celui du C. Ton problème, c'est que quand tu écris

...Range("X:Y")

"X:Y" est une chaîne de 3 caractères X, : et Y. X et Y ne sont pas des variables parce qu'ils font partie de la chaîne, ce serait exactement la même chose en C d'ailleurs.
Il faut écrire

...Range(X & ":" & Y)

Là, X et Y sont bien des variables, elles seront remplacées par leurs valeurs.

Discussions similaires

Quel est l'équivalent 40 GO d'internet en heures ?

Bonjour,
J'ai l'intention d'achter un portable avec internet compris
J'ai la possiblité d'avoir un forfait à 3.95 €, je crois, 1 heure de tel, SMS et 40 GO d'internet

Comme je n'ai pas l'intention d'utiliser beaucoup internet, juste pour voir les mails, un peu de recherche sur google, je me demande à combien de temps correspond 40 GO.
Internet sur mon portable c'est juste, pour pas faire grand chose.
Sinon on me propose un autre forfait avec 1 MO
Je voudrai savoir si 40 GO ça fait 1/4 d'heure, i/2 heure ou plus
Merçi de vos reponses

VBA : Range avec références variables..

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

VBA Excel : sélection d'une plage variable

Bonjour tout le monde,

Je dois sélectionner une plage de cellules en fonction d'une variable i, qui représente le numéro de la ligne voulue. Suite à des recherches sur ccm.net et d'autres forums, j'ai trouvé le code suivant :

Dim MaPlage As Range MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.

Configuration: Windows XP / Firefox 3.6.3

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...