Macro VBA trop dur pour moi
Bonjour,
Je recherche à créer une macro qui execute une multitude d'action enchainés mais je suis totalement nul en VBA et après avoir passé toute la soirée à essayer d'apprendre le language je sèche totalement
Voilà le résultat que je veux avoir :
Lorsque l'on se situe sur une cellule (quelquonque)et que l'on lance la macro les actions qui doivent être exécutées sont les suivantes :
1/Insérer 4 lignes sous cette cellule
2/Ouvrir une InputBox qui demande "Quel est le libellé du compte ?"
3/Mettre la réponse dans la cellule A en dessous de la cellule séléctionnée
4Ouvrir une InputBox qui demande "Quel est le numéro du compte ?"
5/La réponse doit s'insérer sous le libéllé
6/Copier l'ensemble des cellules des colonnes B à N des 3 lignes situées au dessus de la cellule sélectionnée
7/ Il faut remplacer La valeur recherchée des formules (RECHERCHEV)copier en 6/ (pour info 72 remplacements à effectuer)... je voulais faire ça par une InpubutBox
Bon c'est super compliqué même moi je ne comprend plus ce que je veux dire...
Donc je joins un bout de tableau avec la notice de la procédure actuel que je veux automatisé...
Je suis par avance désolé d'être aussi prise de tête. Mais promis je vais continuer à apprendre...
Merci beaucoup de votre aide et bravo pour se forum, j'ai appris des tonnes de truc (mais a priori pas asser pour être à la hauteur de mes ambitions...)
Bonjour nicocomptable
Tu as oublié de joindre le bout de tableau et la notice annoncés.
Cordialement
Amadéus
Pour les 5 premiers points demandés :
Sub MacroNico()
'déclaration des variables
Dim Ligne As Long, Question As String
'1/Insérer 4 lignes sous cette cellule
Ligne = ActiveCell.Row
Rows(Ligne + 1 & ":" & Ligne + 4).Insert Shift:=xlDown
'2/Ouvrir une InputBox qui demande "Quel est le libellé du compte ?"
Question = InputBox("Quel est le libellé du compte ?", "n° de compte")
'3/Mettre la réponse dans la cellule A en dessous de la cellule séléctionnée
Range("A" & Ligne + 1).Value = Question
'4Ouvrir une InputBox qui demande "Quel est le numéro du compte ?"
Question = InputBox("Quel est le numéro du compte ?", "Libellé")
'5/La réponse doit s'insérer sous le libéllé
Range("A" & Ligne + 2).Value = Question
End SubPour les 2 derniers, sans fichiers exemple, je ne comprends pas bien ce que tu veux faire...
Bonjour nico..
La même réponse que soft en XL4
Cordialement
Amadéus
Bonsoir,
Waou, franchement : MERCI !!!
C'est vrai que j'avais envoyer le fichier...
Donc le voici,
J'ai un peu changé d'idée pour les points suivants pour que se soit plus clair donc :
6/ entrer les formules suivantes :
6.1 Colonne B (en face du libellé du compte :somme(C(ligne où se situe le libellé du cpt):N(cellule où se situe le libéllé du compte)
Colonne B (en face du numéro de compte :somme(C(ligne où se situe le numéro de cpt):N(cellule où se situe le numéro de compte)
Puis idem mais sur le ligne d'en dessous
6.2 Colonne C (en face du libellé d compte) :
SI(RECHERCHEV($A$(Cellule du numéro de compte);'Balances N'!$A$3:$Z$850;4)=0;-RECHERCHEV($A$(Cellule du numéro de compte);'Balances N'!$A$3:$Z$850;3);RECHERCHEV($A$(Cellule du numéro de compte);'Balances N'!$A$3:$Z$850;4))
Colone D (en face du libellé d compte) : idem mais en changeant les index de colonne par 6,5,6 au lieu de 4,3,4
et ainsi de suite jusqu'en colone N
Colone D (en face du numéro de cpt) Idem mais en changeant 'Balances N' par 'Balances N-1'
6.3 sur la Colonne A en dessous dessous de Numéro de compte mettre le texte "Ecart N/N-1)
6.4 Enfin sur cette même ligne faire la différence de chaque cellule des colonne B à N des lignes (Nom du compte) et (Numéro de compte)
7 pour finir une MessagBox avec un texte genre "Réalisé avec succès"...
Bien sûr une ligne de chaque formule me suffira amplement...
Bon je pense que je vous ai fait mal à la tête et j'en suis navré...
J'éspère que le tableau test sera plus parlant que moi...
Meci d'avance vous êtes trop fort...
A bientôt.
Nico
Bonsoir Nico..
Fichier et mode d'emploi
Cordialement
Amadéus
Bravo !
Merci beaucoup c'est exactement ça.
Mais
Y a-t-il un moyen pour l'avoir dans VBA où pour l'exporter sachant que je voudrais qu'elle soit "invisible".
Merci d'avance pour votre réponse...
Nico
Bonjour Nico
Fichier joint. Explications sur la feuille "Notice"
Cordialement
Amadéus
Merci Amadéus, c'est parfait !!!
En revanche, je voulais créer une autre macro dans la même feuille, mais je ne sais pas la déclaré n'ayant fait de macro XL4;
Je ne dois pas être bien doué mais là je cale... Après promis je me débrouille...
Bonjour Nico
Petite explication en images
Cordialement
Amadéus
https://www.excel-pratique.com/~files/doc/DeclarerMacroXL4.xls
Comme toujours, c'est parfait !!!!
Merci...