Probleme undefined variable.

Fermé

starrage Messages postés 16 Date d'inscription lundi 17 juin 2013 Statut Membre Dernière intervention 24 février 2014 - Modifié par starrage le 19/06/2013 à 16:00
starrage Messages postés 16 Date d'inscription lundi 17 juin 2013 Statut Membre Dernière intervention 24 février 2014 - 20 juin 2013 à 06:18

Bonjour,
Ma page de veut pas s'afficher, message d'erreur et code en question:
-Undefined variable: classe on line 80
voici le code avec les lignes numérotées:
Pour plus d'infos concernant le problème : https://forums.commentcamarche.net/forum/affich-28040962-probleme-requete-php-et-sql

66 <?php
67 require_once('connexion.php');
68 $requete="SELECT * FROM ouvriers";
69 if ($result=mysql_query($requete)) {
70 while($ligne=mysql_fetch_row($result)) {
71 $id=$ligne[0];
72 $nom=$ligne[8];
73 $heure_affect=$ligne[9];
74 if($heure_affect >=7){
75 $classe="rouge";
76
77 }elseif($heure_affect >0 && $heure_affect <7){
78 $classe="vert";
79 }
80 echo"<option value='.$id.' class='.$classe.'> '.$nom.' </option>";
81 }
82 }else{
83 die(bug);
84 }
85 ?>

A voir également:

1 réponse

Réponse 1 / 1

jeremy.s Messages postés 1226 Date d'inscription lundi 28 mars 2011 Statut Membre Dernière intervention 2 septembre 2013 79
19 juin 2013 à 16:54

Salut !

C'est normal :
Tu déclares $classe dans un if, donc si il ne rentre pas dans le if, $classe n'est pas déclaré ;-)

starrage Messages postés 16 Date d'inscription lundi 17 juin 2013 Statut Membre Dernière intervention 24 février 2014
20 juin 2013 à 06:18

d'accord merci beaucoup =)

Discussions similaires

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

vérifiez la variable d'environnement TEMP

Bonjour,
J'ai aussi le problème de ce message à chaque fois que je veux ouvrir Word 2007 version "Office Famille et Etudiant 2007 "
Utilisation de Windows XP SP2 , avec les mises à jour régulières ...

Lorsque je clique sur un fichier .doc pour l'ouvrir :
1- la fenêtre jaune de Office Word 2007 s'ouvre, puis une fenêtre m'annonce : "impossible de créer le fichier de travail . Vérifiez la variable d'environnement TEMP " je clique sur OK
2- Le cadre de Word s'installe à l'écran puis, de nouveau, la même fenêtre , avec le même message concernant le dossier TEMP .
De nouveau je clique sur OK et à ce moment là mon fichier demandé est affiché !
3- P...

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

messagerie gmail undefined

Bonjour,

je n'arrive pas à écrire un message et à l'adresser. La formule "undifined" s'affiche et je ne peux
rien faire qq'un peut-il me donner la solution? Merci

variable objet ou variable de bloc with non définie

Bonjour,

tout d'abord voici mon code :

Sub RechercheCompo()

Dim plage1 As Range, plage2 As Range, plage3 As Range
Dim Cellule1 As Range, Cellule2 As Range
Set Cellule1 = Range("J6")
Set plage1 = Range("D8:D300").Find(Range("J6").Value, , xlValues)(2, 2)
Set plage2 = Range("D8:D300").Find(Range("J6").Value, , xlValues)(5, 30)
Set plage3 = Range(plage1, plage2)
Dim add As Range, add2 As Range
Set Cellule2 = Range("K6")
Set add = plage3.Find(Cellule2.Value, , xlValues)(1, 1)
Set add2 = plage3.Find(Cellule2.Value, , xlValues)(4, 1)
If Not add Is Nothing Then
Range(add, Range(add, add2)).Select
Else
MsgBox "Désolé !" & C...