Résultats de la recherche

Bonsoir le Forum Avec cette macro je dois sélectionner la feuille destinatrice pour pouvoir coller une forme Sub enregister() Set ti = Sheets("feuil3") col = Range("ZZ2").End(xlToLeft).Column fin = Cells(1000, col).End(xlUp).Row Sh = Cells(1, col) rt =...

Bonsoir le Forum En colonne B et sur 250 Lignes de la feuil1 j'ai les titres d'un roman en feuil5 sur la ligne 1 sur 250 Colonnes j'ai un extrait de chaque roman. Comment Puis-je changes ce code pour qu'il fonctionne Sub Lien() fin = Range("B" & Rows.Count).End(xlUp).Row fin1 = 1 For i = 2 To...

Bonjour le forum Dans la feuille "participants" en colonne B j'ai le prénoms et nom complet: exemple(Andreas Sander) Dans la feuille "Epreuve" en colonne C, j'ai l'initial du prénoms et le nom complet: exemple (A. Sander) Comment faire pour compléter les prénoms de la feuille "Epreuve" Merci...

Bonjour le Forum Petit problème!! Quand la grande.valeur n° 3 est la même que la n° 2 la recherchex me renvoie le même produit Formule colonne A =RANG(Podium!C2;Données!B$2:B$17) Formule colonne B =RECHERCHEX(C2;Données!B$2:B$17;Données!A$2:A$17) Formule colonne C...

Bonjour le Forum Problèmes dans les résultats de la fonction rang Dans la feuil1 en colonne A des noms, colonne B & D résultat du 1er et 2iem tour, colonne C & E leurs rang respectif Jusqu'la ok. Mais quand je fait l'addition des 2 en colonne F le résultat de la colonne G est erroné que je fasse...

Bonsoir le Forum Que me manque-t-il a ce code pour qu'il me sélectionne la feuille demandée Sub Sel() Dim Sh As Worksheets Dim av As Range Set av = Range("epreuve") 'Liste déroulante nommée Epreuve Set Sh = Sheets(av) Sh.Select End Sub Merci de votre aide et bonne soirée

Bonjour le forum Dans la colonne B les données telles que je les récupère: format 1'08''23 (+0''10) le 9iem car est un espace que dans un 1er temps j'aimerais supprimer ainsi que les suivant ne garder que les 8 car du début format: 1'08''13 avec ce code Sub cal6() fin = Cells(Rows.Count...

Bonsoir le forum j'aimerais extraire le mot "SVK" qui se trouve entre les guillemets et coller dans la colonne suivante Petra Vlhova (SVK) = chaine Ensuite supprimer les guillemets avec le mot. ne garder que "Petra Vlhova" avec les formules j' y arrive...

Bonjour le Forum Quelle code dois-je mettre pour supprimer le lien hypertexte Avec ce début de code je lie l’image avec la cellule Sub Macro8() Dim Sh As Shape For Each Sh In ActiveSheet.Shapes Sh.Select Selection.Placement = xlMoveAndSize Next End Sub j'ai essayé avec...

Bonsoir le forum Merci de bien vouloir vous pencher sur mon problème Est-il possible de déclencher un code Si la cellule qui vient d’être calculée (Colonne S) est identique avec la valeur de la cellule de la (colonne B) de la même ligne Private Sub Worksheet_Calculate() 'If...

Bonjour le Forum Avec ce code j’ai une liste déroulante dans mon comboBox Private Sub UserForm_Initialize() Dim gest As Object Set gest = Sheets("Gestion") Me.pose.List = gest.Range("A2:A" & gest.Cells(Application.Rows.Count, 1).End(xlUp).Offset(2, 0).Row).Value End Sub les lignes sont...

Bonjour à tous J’ai un petit problème que je n'arrive pas à résoudre. j’ai deux inputbox lig = InputBox("Texte ?", "Ligne", 1) Col = InputBox("Texte ?", "Colonne", 1) La commande suivante contrôle si il y a une erreur de frappe, je désir un retour à la ligne VBA qui permet de...

Bonjour le forum J’aimerais stocker les lignes et les supprimer toutes en même temps à la fin de la boucle Que doit-je ajouter à ses instructions et ou les mettres Sub Archivage() Set Arch = Sheets("Archive") For Each sh In Sheets Fin = sh.Range("B100000").End(xlUp).Row...

Bonjour Le Forum. Quand j’appel : Userform2.show j’aimerais retrouver les valeur des Cells(i, 1). Cells(i, 2) d’une boucle for Sub reve()’Module 1 Dim fin As Long Dim gest As Object, Sala As Object Set Sala = Sheets("Emplacement") Set gest = Sheets("EntréeSortie") fin =...

Bonsoir le Forum Avec ce code j’initialise une comboBox qui me permet de retrouver le n° de la ligne correspondant a mon choix Private Sub UserForm_Initialize() Me.nom.List = gest.Range("B2:B" & gest.Cells(Application.Rows.Count, 1).End(xlUp).Offset(2, 0).Row).Value End Sub Mon problème est...

Bonjour le Forum. J'ai besoin de votre aide sur la macro (Gestion cave). J’arrive à entrer ou sortir des bouteilles dans la feuille « Entrée-Sortie » Seulement, quand j'entre des bt. j'aimerais pouvoir mettre le n° de position dans la feuille « Emplacement » (chaque cellule correspond à une...

Bonsoir le Forum Merci de consacrer du temps à mon problème Valeur identique colonne C et D Si la valeur de la colonne E est identique supprimer la ligne donc les cellules A & B sont vide Si la valeur de la colonne E est différente couper et coller les donnée des cellules A & B et...

Bonsoir le forum j‘ besoin d’extraire d’une chaine Colonne A 16 : l o g g i a d e l l a l u n a (2 0 1 5) M o r e l l i n o d i S c a n s a n o / T o s c a n e / I t a l i e le nom Toscane qui se trouve entre 2 CAR(47) identique =/ et le nom Italie qui se trouve après le 2iem CAR(47)...

Bonjour le Forum je cherche à copier les 6 derniers caractères de la cellule nommée Dro à la cellule nommée rg Si je copie toute la cel. Pas de problème: Dro.Copy: rg Seulement je ne sais pas comment insère la fonction Droite (right) Merci de votre aide et bonne fêtes de fin d’année

Bonjour le forum Je saisi dans un textbox un date Seulement la boucle ne reconnait pas le format de la textbox. Je vous met un fichier pour que vous me compreniez mieux Private Sub CmdOK_Click() Dim déb As Object, c As Long, rg As Object, Gest As Object Set Gest = Sheets("Gestion...