Erreur 424 comment fait on pour la résoudre

Fermé

houpel Messages postés 11 Date d'inscription mardi 26 août 2003 Statut Membre Dernière intervention 26 août 2003 - 26 août 2003 à 15:35
houpel Messages postés 11 Date d'inscription mardi 26 août 2003 Statut Membre Dernière intervention 26 août 2003 - 26 août 2003 à 15:45

Bonjour,
ca mark erreur 424 on fé comment pr la résoudre???
merci

A voir également:

Erreur 424 comment fait on pour la résoudre
Erreur 0x80070643 - Guide
Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet

2 réponses

Réponse 1 / 2

maily Messages postés 7556 Date d'inscription lundi 26 juin 2000 Statut Contributeur Dernière intervention 23 juin 2023 453
26 août 2003 à 15:38

Bonjour

Euh, quel langage?

Maily :-))))

houpel Messages postés 11 Date d'inscription mardi 26 août 2003 Statut Membre Dernière intervention 26 août 2003
26 août 2003 à 15:40

visual basic
en fait g fé ca:
For n = 1 To r.Rows.Count
If Cells(1, 2) = Cells(2, 1) Then Cells(2, 2) = X
If Cells(1, 3) = Cells(3, 1) Then Cells(2, 2) = X
If Cells(1, 4) = Cells(4, 1) Then Cells(2, 2) = X
If Cells(1, 5) = Cells(5, 1) Then Cells(2, 2) = X
If Cells(1, 6) = Cells(6, 1) Then Cells(2, 2) = X
If Cells(1, 7) = Cells(7, 1) Then Cells(2, 2) = X
If Cells(1, 8) = Cells(8, 1) Then Cells(2, 2) = X

ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(1, -7).Range("A1").Select
ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(-7, 0).Range("A1:H8").Select

Next

End Sub

est ce kil y a un pb???
je commence à apprendre le vb c pr ca.
merci

Réponse 2 / 2

houpel Messages postés 11 Date d'inscription mardi 26 août 2003 Statut Membre Dernière intervention 26 août 2003
26 août 2003 à 15:45

bonjour
comment fait on pr enlever l erreur 424
g marké ca:
For n = 1 To r.Rows.Count
If Cells(1, 2) = Cells(2, 1) Then Cells(2, 2) = X
If Cells(1, 3) = Cells(3, 1) Then Cells(2, 2) = X
If Cells(1, 4) = Cells(4, 1) Then Cells(2, 2) = X
If Cells(1, 5) = Cells(5, 1) Then Cells(2, 2) = X
If Cells(1, 6) = Cells(6, 1) Then Cells(2, 2) = X
If Cells(1, 7) = Cells(7, 1) Then Cells(2, 2) = X
If Cells(1, 8) = Cells(8, 1) Then Cells(2, 2) = X

ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(1, -7).Range("A1").Select
ActiveCell.FormulaR1C1 = "lundi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mardi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "mercredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "jeudi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "vendredi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "samedi"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "dimanche"
ActiveCell.Offset(-7, 0).Range("A1:H8").Select

Next n

End Sub

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

GWXUX a cessé de fonctionner

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters