[vba] valeur nulle pour une variable

Fermé

ekynoxx Messages postés 4 Date d'inscription jeudi 12 avril 2007 Statut Membre Dernière intervention 19 avril 2007 - 19 avril 2007 à 16:05
masterseb - 19 avril 2007 à 23:11

Bonjour a tous,

j'ai un soucis je crois assez classique.
Je cherche dans une colonne la premiere cellule contenant la chaine de caractere "6J".
J'utilise la propriete Find.
Mon probleme est que si je nai pas de valeur, la macro plante.

Voici mon code :

Sub TestCell()

Dim FirstRow6J As Variant

FirstRow6J = Columns("W:W").Find("6J", Range("W2"), , , xlByRows, xlNext).Row
Range("A1").Value = FirstRow6J

End Sub

Je n'arrive pas a gere le cas ou dans la colonne W je nai pas de cellule avec pour valeur 6J.
Merci de votre aide.

A voir également:

[vba] valeur nulle pour une variable
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum MacOS
Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
Attribuer une valeur à une cellule texte excel ✓ - Forum Excel

1 réponse

Réponse 1 / 1

masterseb
19 avril 2007 à 23:11

Salut,

après la déclaration de ta variable Firstrow6J, ajoute la petite phrase suivante qui va empêcher les erreurs de provoquer le plantage :

On Error Resume Next

a+

Discussions similaires

Problème de restrictions

Bonjour,

Je travaille sur un classeur Excel qui est déjà passé par plusieurs mains. Je dois le modifier.

Pour tester une nouvelle formule, j'insère une nouvelle colonne dans laquelle je mets ma formule. Et là apparait le message d'erreur :

"La valeur que vous avez tapée n'est pas valide

Un utilisateur a restreint les valeurs que peut prendre cette cellule"

Ma formule fonctionne très bien dans d'autres cellules, le problème ne vient donc pas de là.

Comment puis-je lever cette restriction ?

Merci d'avance,

Cordialement,

Configuration: Window...

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

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

"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 ...

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...