Probleme avec ligne de code if
dadanida
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
Thorak83 Messages postés 1051 Date d'inscription Statut Membre Dernière intervention -
Thorak83 Messages postés 1051 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Voici mes lignes de codes mais ça fonctionne pas ,j'ai toujours un erreur 13 incompatibilité
sur la ligne : if [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
Sub Supprimer_enregistrement()
If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then
With Sheets("bd")
.Rows(Range("PARAM_NO_LIGNE").Value + 1).Delete shift:=x1Up
End With
If [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub
Mais toute le reste fonctionne
Merci
Daniel
Voici mes lignes de codes mais ça fonctionne pas ,j'ai toujours un erreur 13 incompatibilité
sur la ligne : if [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
Sub Supprimer_enregistrement()
If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then
With Sheets("bd")
.Rows(Range("PARAM_NO_LIGNE").Value + 1).Delete shift:=x1Up
End With
If [nb_enregistrements_bd] < [param_no_ligne] Then [param_no_ligne] = [param_no_ligne] - 1
End If
End Sub
Mais toute le reste fonctionne
Merci
Daniel
A voir également:
- Probleme avec ligne de code if
- Code ascii - Guide
- Partage de photos en ligne - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
Merci
Daniel
car je pense que l'erreur " incompatibilité de type" c'est que vous faites une opération numériques sur une variable texte par exemple