Probleme avec ligne de code if

Fermé

dadanida Messages postés 1 Date d'inscription jeudi 5 septembre 2013 Statut Membre Dernière intervention 5 septembre 2013 - 5 sept. 2013 à 04:02
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 - 5 sept. 2013 à 14:24

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

A voir également:

Probleme avec ligne de code if
Partage de photos en ligne - Guide
Code ascii de a - Guide
Site de vente en ligne particulier - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide

1 réponse

Réponse 1 / 1

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
5 sept. 2013 à 08:44

Bonjour,

que contient [param_no_ligne] ?

cordialement

Dadanida
5 sept. 2013 à 14:08

Param no ligne contient le numéro de la ligne courante dans une base de donné

Merci
Daniel

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
5 sept. 2013 à 14:24

Param no ligne est une variable VBA ? Comment à telle été dimensionnée ?
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

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?