Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Rajouter une condition a un programme

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

br44

XLDnaute Impliqué
Bonjour le forum ,

Lors de mon dernier passage sur le forum je vous ai sollicité pour m'aider pour insérer automatiquement des fiches de nouveaux clients dans un autres classeur . voici le lien de mon dernier post:

https://www.excel-downloads.com/threads/rechercher-a-partir-d-un-inputbox.105930/

Jusque là tout se passait sans problème car les nouvelles fiches devais se placées entrent deux fiches . Mon problème est que là je dois insérer une nouvelle fiche au début d'une feuille ?

Ma question est donc de savoir comment faire pour rajouter la condition suivante à mon programme :

Si la réfclient est égal à une fiche située au début de feuille il faut insérer une ou plusieurs lignes pour que la copie de la nouvelle feuille se place à l'endroit voulu ?

Je vous joint un petit fichier contant un classeurs avec des exemples de fiches est le programme concerné située dans le ThisWorkbook .

Vous remerciant par avance je vous dis à plus sur se fil .Amicalement BR44
 

Pièces jointes

Trier par date Trier par votes
Re : Rajouter une condition a un programme

Bonjour br44,

A tester:

Code: 
'Si la RefClient Affichée dans le message est trouvé ,Alors copie est insert à l'endroit dèfinit
If Not x Is Nothing Then
'CONDITION A RAJOUTER ICI:
  If x.Row = 3 Then
    x.Offset(-2, -5).Insert xlShiftDown, Wb5.Sheets("F.R.M").Range("A1:F29").Copy
  Else
    x.Offset(27, -5).Insert xlShiftDown, Wb5.Sheets("F.R.M").Range("A1:F29").Copy
  End If
End If
 
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Bonjour Skoobi,le forum,


Merci à toi au grand mettre skoobi 😛😛😛😛😉😉😉😉, je vois que tu est toujours en forme .

Le temps de tester ta solution et je te tient au courant .

Je te remercie pour la promptitude de ta réponse ,je ne devrais plus dire :" Grand Maître SKOOBI ,mais SPEDEE SKOOBI 😛😛😛😛😛

A bientôt sur se fil . Amicalement BR44
 
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Bonsoir à SKOOBI,le forum


Comme prévu je donne suite au teste de ta solution . j'ai une mauvaise nouvelle ça beug ! 😉😉

Voici la réponse du programme : Erreur Automation :"440"

Cette erreur se produit au niveau suivant :

x.Offset(-2, -5).Insert xlShiftDown,
Wb5.Sheets("F.R.M").Range("A1:F29").Copy

je pense que cela vient peut être du fait qu'il n'y a plus de ligne vide au-dessus de la première feuille ?

Dis mois se que tu en pense où si tu as besoin de plus d'infos pour trouver une solution ?

je te dis à plus sans oublier de te remercier .Amicalement BR44
 
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Re,

J'ai pas testé ton code mais normalement pas puisque la condition vérifie que la ligne de refclient est la 3 (If x.Row = 3) donc x.Offset(-2, -5) donnera la ligne 1 colonne 1 puisque la première refclient se trouve en F3 c'est bien ça?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Re: Rebonsoir à tous ,

En réponse à ton dernier message je te confirme que ton analyse est juste .

Le problème ne viendrais - t-il pas du fait que la lignes 1 et 2 sont fusionnées,mais je ni crois pas puisque ça fonctionne quand je veux insérer entres deux feuilles ?

Si tu as une idée fait le mois savoir ,de mon côté je vais essayer de chercher une solution .

Te remerciant pour cette réponse je te dis à plus .Amicalement BR44
 
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Re,
Le problème ne viendrais - t-il pas du fait que la lignes 1 et 2 sont fusionnées
Cliquez pour agrandir...
Non.
Test ceci:
[A3].Offset(-2,0).Insert
Tu verras qu'il ne se produit pas de bug.
Tout ce que je peux te conseiller c'est d'utiliser le débogueur pour en savoir plus sur la variable x lors du plantage, son adresse, parfois, on a des surprise 😉.

Bonne soirée.
 
Vote positif 0 Vote négatif
Re : Rajouter une condition a un programme

Boujour Skoobi ,le forum,


Je te remercie pour ta réponse . J'ai une bonne nouvelle j'ai résolu le problème , il venait du fait que j'avais sauvegarder et fermer le classeur qui correspond au "Wb5" avant le programme de copie .

J'ai donc supprimer la partis suivante :

Wb5.Save
Wb5.close

A partir de là ta macro fonctionne parfaitement .

Je vais maintenant rajouter ta macro pour les boutons modifier et supprimer .

Si j'ai un problème je permettrait de poster sur se fil .


Te remerciant pour le coup de main je te dis à bientôt . Amicalement BR44
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
XL 2016 nouvelle formule avec une condition
Réponses
6
Affichages
594
marc94600
M
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
768
sylvanu
N
  • Question Question
XL 2021 ajouter un lien hypertexte au presse-papier
Réponses
6
Affichages
553
NitroX38X
N
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
376
CB7
C
E
  • Question Question
Microsoft 365 agrandir la liste
2
Réponses
21
Affichages
692
ebe
E
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
359
PRy
P
H
  • Question Question
XL 2021 Formules avec si / et / ou imbriquées
Réponses
5
Affichages
362
hades
H
C
  • Question Question
Power Pivot ajouter une colonne libellée à full data
Réponses
3
Affichages
233
C'est Génial
C
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
418
Hecatonchire
H
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
586
Yogean
Y
  • Question Question
XL 2016 Transfer de donnees avec clé d'entrée a la date
Réponses
3
Affichages
404
job75
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
244
JLR67
J
  • Question Question
Autres pointToPixel
Réponses
6
Affichages
304
patricktoulon
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
390
Altfkat
A
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
N
  • Résolu(e)
Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS
4 5 6
Réponses
78
Affichages
3 K
Dudu2
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
1 K
Marc Vanlindt
M
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
1 K
NONO14
N
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
1 K
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…