p

Membre habitué

Inscrit le :17/08/2017
Dernière activité :08/02/2023 à 10:03
Version d'Excel :2007
Messages
58
Votes
2
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Sujets créés par pierre_br

DateForumSujetExtrait du message
26/01/2023 à 00:55Excel - VBALimiter une variableBonjour j'utilise la Macro ci après Dans cette configuration For i = 1 To Valeur la variable porte sur toute la colonne Est il possible de limiter par exemple de "d50"à "d"100. Merci pour votre aide Pierre...
23/01/2023 à 11:39Excel - VBA Associer un nom à un numeroBonjour, Ne parvenant pas à trouver la formule VBA je fais appel à votre aide. En colonne "e" et "h" j'ai des numéros d'équipe 7 - 11-10 etc... En colonne "p" j'ai les noms de ces équipes. Je souhaite afficher ces noms dans les colonnes "f" ou "i" Si en "e2" j'ai le numéro 7 je dois afficher en "f2"...
31/10/2022 à 19:28Excel - VBAMacro vers pc à distanceJe gére un Pc à distance avec Anydesk via le réseau LAN avec l'adresse IP 169-254-236-36 Sur le PC maitre j'utilise la macro suivante Sur le PC à distance j'utilise la macro ci-après Y a-t il la possibité de réunir les 2 macros en une seule que je lancerais du Pc maitre ( en utilisant l'adresse IP ...
15/05/2022 à 15:54Excel - VBA Cellule Non numériqueJe calle sur quelque chose de (sans doute ) simple. Si la cellule B6 n'est pas numérique je veux appeler une macro Sub no_terrain() Sheets("64_4t").Select If Not IsNumeric(Cells(b, 6).Value) = True Then Call ecr_resul2 End If End Sub merci de votre aide...
12/03/2020 à 12:29Excel - VBA Modifier nom du fichierJ'utilise la macro suivante pour gérer 1 affichage différent sur 2 écrans en avant dernière ligne je rappelle le nom du fichier. Je gère ainsi 6 affichages différents. je dois également changer régulièrement le nom du fichier. Pour éviter cela j'ai essayé de remplacer Windows("concours_4p64.xlsm:1")...
18/11/2019 à 16:01Excel - VBANouvelle fenêtre sur 2 écranJ'utilise la macro ci-après pour ouvrir une feuille sur une nouvelle fenêtre. et ensuite avec la souris je glisse cette nouvelle fenêtre sur l'écran 2. Existe t-il une commande VBA qui permette de lancer l'ouverture de cette nouvelle fenêtre directement sur l'écran 2. Sub ecran2() ActiveWindow.NewWi...
08/11/2019 à 00:58Excel - VBA N° de colonne variableDans la macro ci aprés est il possible de définir le n° de colonne avec une variable comme pour Range du style numb = column("b46") ce qui pourrait donner Range("numb" & num).Copy Sub attente_1() With Sheets("64_4t") Application.ScreenUpdating = False Dim num As Integer num = Range("c46").Value Shee...
05/11/2019 à 01:09Excel - VBA N° de ligneJ'utilise la macro suivante Dans cette configuration pas de souci. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range("c45") = 32 Then If Target.Column = 15 And Target.Cells.Count = 1 Then Range("c46").Value = Target.Row End If End Sub Si j'appelle une Macro P...
24/10/2019 à 18:36Excel - VBA N° de ligneJ'utilise la macro ci-après [ i]Sub rectif() End Sub Est il possible d'ajouter une commande qui donne le n° de ligne du résultat et copier le n° de ligne en Range("an38") Apprenti en VBA : Merci pour votre aide Pierre_br...
01/09/2019 à 01:30Excel - VBA Recherche d'une valeur dans une autre feuiileJ'utilise la macro suivante pour rechercher une valeur Sub recherche() Dim Mot As Variant Dim AddresseMot As String With Sheets("64_4t").Range("ai7:ao43") Set Mot = .Find(Sheets("resultat").Range("bo1").Value, LookIn:=xlValues) If Not Mot Is Nothing Then AddresseMot = Mot.Address Do Mot.Interior.Col...
26/08/2019 à 12:44Excel - VBA N° de ligneJe souhaite modifier la macro ci-après pour récupérer non pas la valeur de la cellule mais le numéro de ligne de la cellule. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then If Target.Cells.Count = 1 Then Target.copy Destination:=[I3&#93...
23/08/2019 à 01:14Excel - VBATours de compétitionJ'utilise la macro jointe "SelectionAleatoireDesTours " pour organiser des concours de pétanque. Cette macro permet d'organiser des parties ( de 4 à 6 ) sans que les équipes se rencontrent plus d'une fois. Ce tirage dit à la mêlée ne tient pas compte du résultat des parties précédentes. Il arrive au...
17/03/2019 à 10:56Excel - VBA Macro tirage au sortAu sein d'une amicale de pétanque j'utilise depuis au moins 10 ans une macro pour effectuer des tirages d'équipes pour des tournois. Cette macro fonctionne trés bien de 10 équipes à 128. Mais avec 8 équipes la macro se plante une fois sur deux et se plante toujours avec 6 ou 4 équipes. J'ai tenté de...
06/02/2019 à 14:59Excel - VBA Conditions avec IfJ'utilise la macro suivante suggérée par un utilisateur du forum. Sub copy_result2() Application.ScreenUpdating = False Dim Valeur As Long With Sheets("64_4t") Valeur = .Range("bm" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If .Range("u" & i) < 14 And Range("u" & i) > 0 Then '[/b&#93...
02/02/2019 à 14:13Excel - VBA Paste SpecialDans la macro suivante je souhaiterais faire un coller "PasteSpecial" je ne trouve pas la bonne formulation Merci de m'aider Pierre_br Sub copy_tabl1() Application.ScreenUpdating = False Dim Valeur As Long With Sheets("pre_tab") Valeur = .Range("m" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If...
31/01/2019 à 19:12Excel - VBA Décaler la copieJ'ai la macro suivante Sub liste2() Application.ScreenUpdating = False Dim Valeur As Long With sheets("saisie_numo") Valeur = .Range("k" & Rows.Count).End(xlUp).Row For i = 1 To Valeur If .Range("D" & i) < 104 And Range("D" & i) > 0 Then .Range("c" & i).Copy Destination:=sheets("resultat").Ran...
27/01/2019 à 00:39Excel - VBA Userform non modalJe lance la macro ci après Dans les propriétés de Userform j'ai déclaré modal = false. Le userform s'affiche bien pendant l'exécution de la macro le problème est que l'userform s'affiche sans couleur et sans texte. Merci de m'aider à solutionner . Pierre br...
15/01/2019 à 10:29Excel - VBA Désactiver la MacroJ'utilise la Macro ci-après pour protéger certaines cellules Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("c7:c200,e7:e200"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub Est il possible de désactiver cette macro le temps de copier des cell...
21/12/2018 à 11:58Excel - VBA N° de cellule variablePour établir une liste je rentre des n° en face d'une liste déjà établie voir fichier joint. Afin de ne pas répéter 100 fois la commande If sheets("saisie_numo").Range("d" & i).Value = "1" Then sheets("saisie_numo").Range("c" & i).Copy sheets("saisie_numo").Range("a1") est il possible de trouver une...
17/08/2017 à 22:27Excel - VBA Plein écran sur une seule feuille du classeurJ'utilise le code ci après pour passer (avec bouton) en mode plein écran. Ce code s'applique à toutes les feuilles du classeur. Je voudrais que le mode plein écran ne s'applique à toutes les feuilles Quel serait la solution pour que cela s'applique seulement à la feuille active? Merci de vos réponse...