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

Programmation vba

  • Initiateur de la discussion Initiateur de la discussion mmcg
  • 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 !

M

mmcg

Guest
Bonjour, je suis un nouveau sur ce forum.

J'ai quelque notion en programmation vba avec excel 2010.

J'ai un problème pour écrire une macro dans un userform.

Je voudrai faire une recherche d'un nom dans une base de donnée.
Le résultat c'est que si la recherche est bonne il m'appèle une macro, sinon il ne trouve pas le nom il m'appèle une autre macro.

Merci de votre aide.
 
Bonsoir mmcg et le forum.

Je pense qu'il faudrait être un peu plus précis, par exemple comment faite vous la recherche, dans des colonnes ou des lignes... d'ou l'intérêt d'un petit fichier exemple avec ce que vous savez faire et préciser le reste.🙂

A +
 
Re : Re: Programmation vba

J'ai un autre problème toujours sur le même programme.

J'aimerai insérer une ligne avec des formules.
Je m'explique, j'ai une base de donnée avec des noms et des prénoms et une somme à faire par client
exemple:
nom concaténer Nom Prénom somme nb nb nb
1 / Dupont Jacque / Dupont / Jacque / 55 / 5 / 25 / 25 /
2 / Durent Paul / Durent / paul / 55 / 5 / 25 / 25 /
3 / George claude / George / claude / 55 / 5 / 25 / 25 /

en A1 Formule =concatener(B1;C1)
en D1 Formule =somme(E1:G1)
idem pour toute les autres lignes.

Je voudrai insérer automatiquement en code VBA une ligne entre la ligne 1 et 2 et que les 2 formules se mettent automatiquement en A2 et D2.

j'ai fais un code et il fonctionne que si je l'exécute seul. Si je le met dans une macro il ne m'insère que la ligne avec la formule pour concaténer.

Voici le code que j'ai fais:
Sheets("BD").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A6").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[1],"" "",RC[2])"

Range("L6").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[736])"
 
Re : Programmation vba

salut carcharodon-carcharias,
désolé mais je n'ai pas compris ta phrase???
 
Dernière modification par un modérateur:
Re : Programmation vba

Pour les formules,
c'est une formule par cellule mais 2 formule sur 1 ligne, je me répète Formule pour concaténer en A1 et une formule pour additionner en L1? Es possible si oui regarde dans mon code quelque message plus haut et dit moi ou c'est faux. Merci!!...
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
695
Réponses
19
Affichages
653
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…