Résultats de la recherche

Bonjour à tous les userforms c'est vraiment pas mon fort et j'aimerai (encore une fois) votre aide voici la macro qui rempli ma feuille ShArchive: Sub Transfert() Dim Ligne As Long Dim colonne As Long Dim Cellule As Range Dim lg Dim Derli As Long Dim i As Long, sStr As String, Ar() As String...

Bonjour à tous J'utilise se super formulaire de Boisgontiers _que je remercie au passage pour toutes ses applications mises à dispo à tous) et j'aimerais savoir si il était possible de transférer les valeur de la listview sur la feuille résultats Ma BD grossi au fur et a mesure que je...

Bonjour à tous je voudrais afficher en rose sur ma BD la ligne que je sélectionne sur mon userform soit par double click soit par click sur bouton mais je n'ai pas les compétences pour le faire Si vous avez un peu de temps à me consacrer et surtout à m'expliquer je vous en remercie par avance...

Bonjour le forum Je me suis crée grâce à l’aide de beaucoup sur ce site un classeur qui depuis le début n’a fait que grossir Ayant aujourd'hui quelque chose qui tient la route j'aimerai savoir si c'est possible d'avoir un code vba qui liste toutes les macros utilisées afin de supprimer sans...

Bonjour peut être la question a été déjà posée mais dans mes recherches rien ne correspond Je fais la sauvegarde de mes factures d'un tableau excel et je recopie toutes les lignes de ma facture sur une autre feuille du même classeur Cette sauvegarde copie toutes les cellules et les écrit sur la...

Bonjour les amis Sur 2 codes identiques (seul le nombre de données récoltées change) un fonctionne et l'autre me donne l'erreur Erreur de compilation: variable non définie Le code qui va bien Private Sub Worksheet_BeforeDoubleClick(ByVal Target As range, Cancel As Boolean) Dim Inter As range...

Bonjour les amis Voici une macro qui me permet d'imprimer (enregistrer au format .pdf) 2 pages ce code fonctionne parfaitement bien pour ceux qui peuvent en avoir l'utilité Sub Imprimerpage2_PDF() With ActiveSheet.PageSetup .PrintArea = "$B$2:$K$62" 'ici la première plage de la premier page...

Bonjour à tous Je n'ai pas trouvé sur le forum la réponse à mon problème, un pro d'excel peut il me venir en aide ? j'ai macro qui copie des cellules d'une feuille pour les réécrire à l'horizontale vers une autre. Aujourd'hui je dois augmenter le nombre de cellules copiées et recopiées mais...

Bonjour à tous Je reçois régulièrement de données de mes clients qui ont une forme particulière du genre adesvzjers:12Aerz J'aimerai dans la mesure du possible pour les trier a partir du caractere : Le but est de classer la liste de donnée de manière croissante ou décroissante à partir des ...

Bonjour le forum je bloque sur un bout de code qui me permettrait de copier la valeur d'une cellule sur la cellule suivante Exemple si je double clic sur la cellule F6 je voudrais que la valeur soit recopier à l'identique dans la cellule G6 idem pour F7 vers G7 f8 vers G8 etc et ceci pour...

Bonjour à tous Je cherche un code qui pourrait par double clic m'ouvrir un userform dans lequel j'ai 2 boutons qui correspondent chacun à une feuille ("ENTREE") et à une feuille ("SORTIE") Actuellement je n'utilise qu'une feuille ("ENTREE") avec ce code en double clic Private Sub...

Bonjour le forum Aujourd'hui j'ai besoin de votre aide pour changer le texte d'un Commandbutton Sur l'exemple ci joint j'aimerais qu'en cliquant sur le bouton la cellule G6 change et que le texte du bouton aussi J'y arrive sans problème pour 2 textes mais pas pour 3. Quelqu'un saurait...

Bonsoir J'essaie sans succès d’intégrer une condition "ou" dans mon code mais sans résultat J'ai une macro qui fonctionne avec If Range("G6") = "FACTURE N°" Then ....suite du code J'aimerai tester aussi une autre condition du genre If Range("G6") = "FACTURE N°" Or "AVOIR N°" Then...

Bonjour le forum je cherche à modifier une formule dans un code pour remplacer ceciFor Z = 15 To 50 If IsEmpty(CellS(Z, 9)) Then CellS(Z, 9).FormulaLocal = "=SI(NON(ESTVIDE(B" & Z & "));RECHERCHEV(B" & Z & ";'liste des articles'!$A$1:$D$10000;4;FAUX);"""")" End If...

Bonjour tout le monde J'essaie d'écrire cette formule =SI(I18<>"";H18*((100-J18)/100)*I18;"")qui se trouve dans mon tableau dans un code VBA j'ai donc écritFormulaLocal = "=SI(I" & u & "<>"""";H" & u & "*((100-J" & u & ")/100*I" & u & ";"""")" mais ça ne marche pas quelqu'un pourrait...

Bonjour le forum J'ai trouvé le code de Jacques (que je salue et remercie au passage) " FormIntuitive" très intéressant et j'ai voulu l'adapter à mon fichier mais ... Sur le fichier joint dans la feuille "Result" un double clic sur une cellule comprise dans la colonne B entre b15 et B52...

Bonjour le forum Je vous présente à tous tous mes vœux de bonheur et de santé pour cette nouvelle année. Malgré tous les posts qui ont été fait sur la mise à jour d'une base de donnée je n'ai pas trouvé d'exemple pouvant me servir. J'ai une base de données d'environ 5000 lignes que je dois...

Bonjour le forum toujours à la recherche de code plus simple quelqu'un pourrait me dire si il est possible de réduire ce code de recopie de données ? Sub N°2() Application.ScreenUpdating = False With Sheets("Modele") Sheets("SAISIE").Range("I5").Copy...

Bonjour le forum à l'aide de l'enregistreur de macro j'ai crée un code pour "fabriquer" à la demande les bordures d'une feuille J'ai supprimé tout ce qui était inutile et je me demande (je sais bien qu'en période de fêtes c'est un peu dur) si il n'y a pas moyen de lui faire faire un petit...

Bonjour le forum dans mon appli j'ai crée une macro qui me permet d'insérer une ligne voici son code Sub nouvelleligne1() Dim iR&, i&, k&, Ak& Application.ScreenUpdating = False Worksheets("SAISIE").Unprotect iR = ActiveCell.Row Rows(iR).Insert For a = 15 To 42...