Avec un Userform, l'usager peut mettre =E0 jour des donn=E9es=20
inscrites sur une ligne en s=E9lectionnant le nom d'un=20
projet en colonne C, et cliquant sur un bouton de=20
commande, le userform apparait. Si l'usager change le nom=20
de celui qui s'occupe du projet (apparaissant dans le=20
combobox2), alors, je veux qu'une ligne apparaisse en-
dessous de l'actuelle (en ins=E9rer une nouvelle) et que=20
toutes les donn=E9es apparaissant sur le Userform s'y=20
inscrivent.
Voici le code:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value=20
Then ActiveCell.Offset(1, 0).EntireRow.Insert
Excel me lance le message d'erreur qu'il ne peut pas=20
bouger des cellules non-vides afin de pr=E9venir la perte de=20
donn=E9es.
Avez-vous d=E9j=E0 eu ce genre d'erreur? L'aide de Microsoft=20
me dit ceci:
The method can't be used in the applied context. For=20
example, some Range object methods require that the range=20
contain data. If the range does not contain data, the=20
method fails.
Alors j'ai chang=E9 pour ceci:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value=20
Then ActiveCell.Offset(1, 0).Select
If ActiveCell.Value =3D "" Then ActiveCell.Value =3D "x"
ActiveCell.EntireRow.Insert
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denys
Re-bonjour à tous,
Finalement, je m'y suis pris autrement....tout simplement en ajoutant le projet à la suite des autres, puis en faisant un "sort" par nom...
Peut-être pas élégant, mais ça fonctionne..
Merci
Denys
-----Original Message----- Bonjour à tous,
Avec un Userform, l'usager peut mettre à jour des données inscrites sur une ligne en sélectionnant le nom d'un projet en colonne C, et cliquant sur un bouton de commande, le userform apparait. Si l'usager change le nom
de celui qui s'occupe du projet (apparaissant dans le combobox2), alors, je veux qu'une ligne apparaisse en- dessous de l'actuelle (en insérer une nouvelle) et que toutes les données apparaissant sur le Userform s'y inscrivent.
Voici le code:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value Then ActiveCell.Offset(1, 0).EntireRow.Insert
Excel me lance le message d'erreur qu'il ne peut pas bouger des cellules non-vides afin de prévenir la perte de
données.
Avez-vous déjà eu ce genre d'erreur? L'aide de Microsoft me dit ceci:
The method can't be used in the applied context. For example, some Range object methods require that the range contain data. If the range does not contain data, the method fails.
Alors j'ai changé pour ceci:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value Then ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then ActiveCell.Value = "x" ActiveCell.EntireRow.Insert
Même résultat...
Pourriez-vous m'aider?
Merci beaucoup...
Denys
.
Re-bonjour à tous,
Finalement, je m'y suis pris autrement....tout simplement
en ajoutant le projet à la suite des autres, puis en
faisant un "sort" par nom...
Peut-être pas élégant, mais ça fonctionne..
Merci
Denys
-----Original Message-----
Bonjour à tous,
Avec un Userform, l'usager peut mettre à jour des données
inscrites sur une ligne en sélectionnant le nom d'un
projet en colonne C, et cliquant sur un bouton de
commande, le userform apparait. Si l'usager change le
nom
de celui qui s'occupe du projet (apparaissant dans le
combobox2), alors, je veux qu'une ligne apparaisse en-
dessous de l'actuelle (en insérer une nouvelle) et que
toutes les données apparaissant sur le Userform s'y
inscrivent.
Voici le code:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value
Then ActiveCell.Offset(1, 0).EntireRow.Insert
Excel me lance le message d'erreur qu'il ne peut pas
bouger des cellules non-vides afin de prévenir la perte
de
données.
Avez-vous déjà eu ce genre d'erreur? L'aide de Microsoft
me dit ceci:
The method can't be used in the applied context. For
example, some Range object methods require that the range
contain data. If the range does not contain data, the
method fails.
Alors j'ai changé pour ceci:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value
Then ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then ActiveCell.Value = "x"
ActiveCell.EntireRow.Insert
Finalement, je m'y suis pris autrement....tout simplement en ajoutant le projet à la suite des autres, puis en faisant un "sort" par nom...
Peut-être pas élégant, mais ça fonctionne..
Merci
Denys
-----Original Message----- Bonjour à tous,
Avec un Userform, l'usager peut mettre à jour des données inscrites sur une ligne en sélectionnant le nom d'un projet en colonne C, et cliquant sur un bouton de commande, le userform apparait. Si l'usager change le nom
de celui qui s'occupe du projet (apparaissant dans le combobox2), alors, je veux qu'une ligne apparaisse en- dessous de l'actuelle (en insérer une nouvelle) et que toutes les données apparaissant sur le Userform s'y inscrivent.
Voici le code:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value Then ActiveCell.Offset(1, 0).EntireRow.Insert
Excel me lance le message d'erreur qu'il ne peut pas bouger des cellules non-vides afin de prévenir la perte de
données.
Avez-vous déjà eu ce genre d'erreur? L'aide de Microsoft me dit ceci:
The method can't be used in the applied context. For example, some Range object methods require that the range contain data. If the range does not contain data, the method fails.
Alors j'ai changé pour ceci:
If ComboBox2.Value <> ActiveCell.Offset(0, 1).Value Then ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then ActiveCell.Value = "x" ActiveCell.EntireRow.Insert
