Incident sur instruction If

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

J'aurai besoin d'une aide sur l'instruction if suivante.
J'ai besoin de faire un test sur plusieurs cellules d'une même colonne pour cela j'ai écrit une boucle for avec une instruction if
La boucle for s'effectue sur les cellules A4 jusqu'à A35 la valeur et numérique sauf pour la dernière cellule celle-ci et en alpha
le if ne fonctionne pas sur la ligne qui est en alpha comment puis-je faire fonctionner le if????

Ma procedure:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Range("A4").Select jour = Day(Date) For Each Cellule In Range("A4:A35") testcell = Cellule Var2 = Cellule.Row If Cells(Cellule, jour) = Cellule Then 'Ajout de 4509 dans la nouvelle ligne en colonne B Var2 Range("B" & Var2 & "").Select ActiveCell.FormulaR1C1 = "4509" Exit For End If

22/07/2009, 09h26
fgiambelluco
Bonjour
avant de tester la valeur, il suffit de tester si la cellule contient du numérique, en utilisant
Code:

1 2 3 If IsNumeric(...) Then --- End If
22/07/2009, 09h39
AAWOOPY56

INCIDENT SUR INSTRUCTION IF

Bonjour,

Oui le test je le fais mais après car le but et de mettre à jour une ligne ou bien d'insérer une ligne à partir des deux tests

Donc le premier test fait la vérification si la ligne existe à partir de la date du jour et du contenu des cellules de 01 à 31 sauf pour la dernière ligne celle-ci correspond à du texte

Par exemple aujourd'hui nous sommes le 22 donc je test si j'ai une cellule avec le numéro 22 si elle existe je met à jour cette ligne

Si elle n'existe pas je passe a mon second test qui vérifie si je suis sur la derniere cellule cette dernière ligne a un contenu text.
Si la cellule et égal a du texte alors j'insère une ligne et je sort de la boucle

Bonjour,
une petite idée !! :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AA()
Dim Lig As Long
Dim Jour As Integer
    Jour = Day(Date)
    For Lig = 1 To 31
        If TypeName(Cells(Lig, col).Value) = "String" Then
        'Ici c'est texte tu est sur la ligne avec le texte
            Stop
        Else
        'ici c'est pas du texte donc un nombre
            If Cells(Lig, 1) = Jour Then
                Cells(Lig, 2) = "4509"
                Exit For
            End If
        End If
    Next Lig
End Sub

A+

22/07/2009, 13h12
AAWOOPY56

INCIDENT SUR INSTRUCTION IF

Merci pour l'aide mais lorsque j'execute le programme j'ai une erreur sur la ligne du IF je te donne le message:

Erreur d'exécution '1004'

Erreur définie par l'application ou par l'objet
22/07/2009, 13h15
LeForestier

Tu a initialiser Col avec la valeur de ta colonne ? sinon c'est zéro et là.. ca coince :D
22/07/2009, 13h21
AAWOOPY56

INCIDENT SUR INSTRUCTION IF

Ben non comment je la charge ??

Hummm..:zoubi:
Avec le numéro de ta colonne, ici la colonne A donc =1

Code:

1
2
3
4
5
6
Sub AA()
Dim Lig As Long
Dim Jour As Integer
Dim Col as integer
    Col = 1 'a changer si tu veux tester une autre colonne.
    Jour = Day(Date)

Ok merci j'ai aménagé un ptit peut le programme et ça fonctionne il me reste des améliorations a effectuées car j'ai 5 colonnes a mettre a jour dans ma ligne
Bon y a peut être plus simple mais comme je débute je ne voudrais pas trop compliqué les choses

j'aurai certainement encore besoin de toi ça ne te dérange pas

Merci beaucoup

Le début de programme aménagé
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Dim Jour As Integer Jour = Day(Date) For Each Cellule In Range("A4:A35") Var2 = Cellule.Row If Cellule = Jour Then 'Ajout de 4509 dans la nouvelle ligne en colonne B &Var2 Range("B" & Var2 & "").Select ActiveCell.FormulaR1C1 = "4509" Exit For End If If IsNumeric(Cellule.Value) = False Then 'Insertion d une ligne à la suite de la derniére ligne numérique 'Ajout de la date dans la nouvelle ligne en colonne A &Var2 Range("A" & Var2 & "").Select Selection.EntireRow.Insert ActiveCell.FormulaR1C1 = Day(Date) 'Ajout de 4509 dans la nouvelle ligne en colonne B &Var2 Range("C" & Var2 & "").Select ActiveCell.FormulaR1C1 = "4509" Exit For End If Next

22/07/2009, 14h18
AAWOOPY56

Bon le moment et arrivée j'ai besoin de toi je cherche a extraire dans une variable la valeur d'une cellule j'ai essayé avec

Code:

varcel = range(B4)

mais le résultat de ma variable et vide
22/07/2009, 14h27
Krovax

Sérieusement utilise les balise code 50 message sur le forum et tu ne les mets toujours pas, les modos ont j'en suis sure autre chose a faire que d'éditer tes postes (ils pourraient y répondre par exemple) et nous on galère pour te lire.

Un lien pour t'apprendre

Si tu as vraiment mis

Code:

varcel = range(B4)

essaye de mettre

Code:

varcel = range("B4")

Ou alors si la feuille active n'est pas la bonne

Code:

varcel = worksheets("NomDeTaFeuille").range("B4")

Je comprends pas a chaque fois li me retourne un champ vide en B23 pourtant il y a le chiffre 4

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
For Each Cellule In Range("A4:A35")
 
Var2 = Cellule.Row
MsgBox Var2
 
If Cellule = Jour Then
Dim valcalc As Integer
 
'Ajout de 4509 dans la nouvelle ligne en colonne B &Var2
'valcalc = Range("B" & Var2 & "").Value
 
valcalc = Range("B23")
 
calc = valcac + 4
MsgBox calc
MsgBox valcac
    Range("B" & Var2 & "").Select
     ActiveCell.FormulaR1C1 = calc
Exit For
End If
 
If IsNumeric(Cellule.Value) = False Then
 
'Insertion d une ligne à la suite de la derniére ligne numérique
'Ajout de la date dans la nouvelle ligne en colonne A &Var2
    Range("A" & Var2 & "").Select
    Selection.EntireRow.Insert
    ActiveCell.FormulaR1C1 = Day(Date)
 
'Ajout de 4509 dans la nouvelle ligne en colonne B Var2
    Range("C" & Var2 & "").Select
    ActiveCell.FormulaR1C1 = "4509"
Exit For
End If
Next

Bonjour
Code:

1 2 3 4 5 6 7 8 9 10 Dim valcalc As Integer 'Ajout de 4509 dans la nouvelle ligne en colonne B &Var2 'valcalc = Range("B" & Var2 & "").Value valcalc = Range("B23") calc = valcac + 4 MsgBox calc MsgBox valcac
Les variables ne sont pas les mêmes, attention à la saisie.
Pense à mettre Option Explicit en début de module, Excel controlera ces erreurs de saisie.

22/07/2009, 14h50
Krovax

Un petit tuto
Fondements sur les variables et les constantes

Je pense que tu devrais sérieusement appliquer les conseil donné, tu vas passer un peu de temps a déclarer tes variables mais ca t'évitera ce genre d'erreur ainsi que de nombreuses autres
22/07/2009, 14h52
AAWOOPY56

Ca ne marche tjrs pas

Evidemment que ça marche pas, et de la façon dont tu procède ça marchera jamais, tu passe du coq à l'ane !!!:mrgreen:
Il n'y a que quelque ligne à ajouter au code que j'ai mis dans mon poste précédant.
Tu dir que ça marche et tu reprend ton ancien code qui marche pas !!:mrgreen:
Aller... je vais être bon prince (mais c'est bon pour une fois..:P)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub AA()
Dim Lig As Long
Dim Jour As Integer
Dim Col As Integer
    Col = 1 'a changer si tu veux tester une autre colonne.
    Jour = Day(Date)
    For Lig = 1 To 31
        If TypeName(Cells(Lig, Col).Value) = "String" Then
        'Ici c'est texte tu est sur la ligne avec le texte
            Rows(Lig).Insert
            Cells(Lig, Col) = Jour
            Cells(Lig, 2) = "4509"
        Else
        'ici c'est pas du texte donc un nombre
            If Cells(Lig, 1) = Jour Then
                Cells(Lig, 2) = "4509"
                Exit For
            End If
        End If
End Sub

A+

Merci pour l'ane!!! mais si je reprends mon code avec des modifs repris de ton code alors il fonctionne

Mon code qui fonctionne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Range("A4").Select jour = Day(Date) For Each Cellule In Range("A4:A35") Var2 = Cellule.Row If Cellule = jour Then Dim valcalc As Integer valcalc = Range("B23") calc = valcac + 4 Range("B" & Var2 & "").Select ActiveCell.FormulaR1C1 = calc Exit For End If If IsNumeric(Cellule.Value) = False Then Range("A" & Var2 & "").Select Selection.EntireRow.Insert ActiveCell.FormulaR1C1 = Day(Date) Range("C" & Var2 & "").Select ActiveCell.FormulaR1C1 = "4509" Exit For End If Next
Dans le code que j'ai mis en ligne j'ai ajouté une ligne qui ne fonctionne pas c'est la ligne

Code:

calc = valcac + 4

car lorsque j'extrais la valeur de B23 dans la variable valcalc celle-ci et vide

Code:

valcalc = Range("B23")

alors y a t-il une solution pour récupérer la valeur de B23 dans la variable

Merci

22/07/2009, 15h39
Krovax
Un conseil quand tu ecrit
Code:

1 2 Range("B" & Var2 & "").Select ActiveCell.FormulaR1C1 = calc
Tu dit
Slectionne la cellule B2 (le &"" est totalement inutile mais cela t'avais déjà été dit)
Met la formule dans la cellule active

Un equivalent dans la vie de tous les jour,
"Prend la tasse en main
Nettoie l'objet que tu as en main"

"Autant dire nettoie la tasse "

Donc écrit

Code:

Range("B" & Var2 & "").FormulaR1C1 = calc

Tes code seront plus rapide et sans doute moins sujet aux erreurs et a la confusion

Sinon pour récupérer le contenu d'une cellule dans une variable

Code:

varcel = worksheets("NomDeTaFeuille").range("B4")

Worksheets("NomDeTaFeuille") est facultatif si tu es sure de vouloir la cellule B4 de la feuille active

Du plus tu n'as suivis aucun des conseil qui ton été donné, a croire que tu te fou de nous
Code:

1 2 valcalc = Range("B23") calc = valcac + 4
valcalc et valcac sont deux variable différentes!!!!! Tu as fait une simple faute de frappe et comme tu n'as pas écouté les conseil de fgiambelluco que j'ai relayé avec un tuto. Tu perds ton temps sur une broutille

Alors passe en option explicite déclare TOUTES tes variables (en début de macro habituellement) net ensuite on pourra t'aider efficacement, avant on risque nous aussi de perdre notre temps
22/07/2009, 15h52
aalex_38

Citation:

Alors passe en option explicite déclare TOUTES tes variables (en début de macro habituellement) net ensuite on pourra t'aider efficacement, avant on risque nous aussi de perdre notre temps

Une solution que j'aime bien sans passer par explicit, c'est de déclarer mes variables avec au moins une majuscule et de taper en minuscule, si la majuscule apparait comme par magie dans ma variable => ok je l'ai bien tappée.

Citation:

car lorsque j'extrais la valeur de B23 dans la variable valcalc celle-ci et vide

Si tu ne défini pas le classeur ni la feuille sur lequel tu travaille, tu peux avoir des soucis, es-tu sur la bonne feuille :

Code:

MsgBox Range("B23").Parent.Name

Et sur le bon classeur ?

Code:

MsgBox Range("B23").Parent.Parent.Name

Nb: mes deux petits codes me font bien délirer pour le coup :zoubi:

edit: pour ceux que le doute habite ;):

Code:

MsgBox Range("B23").Parent.Parent.Parent.Name

edit2: Bonjour, Ousk'el'n'or :

Citation:

vu que les équidés c'est pas mon domaine

Etonnant, vu la photo !
22/07/2009, 15h55
ouskel'n'or

J'avais pas envie de tout relire vu que les équidés c'est pas mon domaine... alors je repars de ton code de départ

Citation:

For Each Cellule In Range("A4:A35")

Je suppose que tu as déclaré Cellule as range... Si tu ne l'as pas fait ou si tu l'as déclaré en variant, c'est quand même un range.
Donc à ta place je commencerais par mettre

Code:

If Cells(Cellule.value, jour) = Cellule.value Then

Pour le reste, dis déjà si tu as dépassé ce stade... ;)

Voir 40 message(s) de cette discussion en une page