Forum du club des d�veloppeurs et IT Pro - Macros et VBA Excel

[XL-365] Contr�le pr�sence d'un r�seau

retraite83 — Sat, 30 May 2026 14:47:50 GMT

Bonjour,

j'ai l'habitude de contr�ler la pr�sence d'un fichier par :

Code:

If Len(Dir(pathServeur, vbDirectory)) > 0 Then

Comment faire pour contr�ler la connexion � un serveur dont l'adresse a la forme

Citation:

\\192.xxx

puis la pr�sence d'un fichier sur ce r�seau

Avez-vous une piste de doc sur ce sujet, mes recherches ne sont pas concluantes

merci

[XL-2019] Blocage impr�vu en VBA

jacsimo — Tue, 26 May 2026 20:50:50 GMT

Bonjour
Je cherche � ranger les colonnes de la feuille ff de la m�me mani�re que celles de la feuille og en fonction des noms qui sont sur la premi�re ligne. Je prends les noms de og un par un, je cherche o� ils se trouvent dans ff et je d�place les colonnes de ff pour les mettre dans le m�me ordre que dans og.
J'utilise une s�quence a priori identique � celle que j'ai d�j� utilis�e ailleurs et qui fonctionne sans probl�me. Mais ici, quand j'ai trouv� le nom dans ff, par find, je bloque sur la position de la colonne, sur la ligne col = nomf.Column, j'ai une erreur 424, objet requis.
Quelqu'un peut-il me dire ce que j'ai rat� ou ce que je dois ajouter ?
Merci d'avance.

Je n'arrive pas � mettre ma proc�dure en PJ, je la reproduis ici:

Dim shg As Worksheet
Set shg = Worksheets("og")
Dim shf As Worksheet
Set shf = Worksheets("ff")

'rang des derni�res colonnes de og et ff
lastcog = shg.Cells(1, Columns.Count).End(xlToLeft).Column
lastcff = shf.Cells(1, Columns.Count).End(xlToLeft).Column

'd�finition de la plage de recherche
Set rgff = shf.Range(shf.Cells(1, 4), shf.Cells(1, lastcff))

For j = 4 To lastcog
nom = shg.Cells(1, j)
If nom <> "" Then
nomf = rgff.Find(nom, LookIn:=xlValues, lookat:=xlWhole) 'recherche du nom dans ff
col = nomf.Column
shf.Columns(col).Cut
shf.Columns(j).Insert shift:=xlToRight
Else
'� traiter
End If
Next j

Fichiers attach�s

ma proc�dure qui plante.txt (776 octets)

[XL-365] Plantage � la fermeture d'un classeur

lesurferdu59 — Tue, 26 May 2026 15:00:24 GMT

Bonjour,

J'ai un classeur qui plante en le fermant en VBA. En fait, je veux que mon classeur se ferme (mais sans quitter Excel car les autres classeurs doivent rester ouverts) en faisant un clic DROIT sur une cellule.

Pour v�rifier si cela ne vient pas du code, j'ai fait un nouveau classeur tout b�te avec uniquement (et rien d'autre) :

Sur la feuille, une proc�dure �v�nementielle :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Address = "$F$10" Then
ThisWorkbook.Close True
End If
End Sub

Si je fais un clic DROIT en F10, mon classeur fait quitter Excel, mais je dirai fait "planter" Excel, car lorsque je le relance, j'ai un message indiquant qu'Excel ne s'est pas ferm� correctement et me demande si je veux l'ex�cuter en mode sans �chec...
Bien s�r, les autres classeurs ouverts sont ferm�s en m�me temps, et s'ils n'�taient pas enregistr�s, tout est perdu...

J'ai essay� sans ouvrir d'autres classeur, m�me chose

J'ai essay� avec la proc�dure �v�nementielle double clic : m�me probl�me

J'ai essay� avec la proc�dure �v�nementielle Worksheet_SelectionChange : l� �a fonctionne, Excel ferme mon classeur mais reste ouvert. Par contre, cette proc�dure ne m'int�resse pas, car si je clique par erreur sur la cellule, il va se fermer, et je ne souhaite pas de message demandant si je veux vraiment fermer le classeur.

J'ai essay� aussi, au lieu d'utiliser directement l'instruction ThisWorkbook.Close de faire un call proc�dure et mettre le close dans une proc�dure, toujours la m�me anomalie.
j'ai recherch� sur diff�rents sites, (mettre un do events, mettre workbooks("nomclasseur").close � la place de thisworbook, etc), mais rien ne fonctionne.

Donc, pour r�sumer, est-ce que quelqu'un sait pourquoi :
en utilisant l'instruction ThisWorkbook.Close dans une proc�dure �v�nementielle BeforeRightClick ou BeforeDoubleClick �a fait planter Excel, alors qu'avec une proc�dure SelectionChange le classeur se ferme bien en laissant Excel ouvert ???

Merci d'avance.

[XL-365] VBA Modification reference cellule

Gestion-RH — Tue, 26 May 2026 10:04:23 GMT

Bonjour
Dans le cadre d'un planning, j'utilise ce code pour transposer des cycles de travail dans une grille de distribution qui rempli automatiquement un calendrier perp�tuel.
Je souhaite positionner la plage � copier sur le 1er lundi du mois (4�me jour de l'ann�e par exemple). Cette valeur se calcul automatique et se range dans la cellule P1
ainsi au lieu de Range("E3").Select, je souhaite obtenir Range("E3"+4).Select, soit au final Range("E7").Select
Le sujet semble si �vident que le nombre de r�ponses est "assourdissant".
Auriez-vous la bont� de m'aider SVP.
Merci d'avance

Private Sub CommandButton1_Click()
Dim r�ponse As Integer
Dim PLAGE As Range
r�ponse = MsgBox("Vous allez importer le cycle de travail dans les grilles mensuelles : Voulez-vous continuer ?", vbQuestion + vbYesNo)
If r�ponse = vbYes Then
Application.ScreenUpdating = False
' Transport du cycle 01 Sem dans la grille de distribution
Set PLAGE = Worksheets("CYCLE").Range("S3:AA9")
PLAGE.Copy
Range("S3:AA9").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
etc.

[XL-365] Contr�le num�rique d'un champ

retraite83 — Fri, 22 May 2026 09:16:01 GMT

Bonjour,

je viens de d�couvrir qq chose que je n'avais jamais remarqu� dans un contr�le num�rique :

Un champ A1 d�fini en num�rique
L'utilisateur tape un espace dans sa saisie par exempe "12 4"
Le code suivant contr�le la num�ricit�

Code:

1
2
3
4
5
6
 
    If IsNumeric(test.Range("A1")) = True Then
       MsgBox "OK"
    Else
        MsgBox "champ non numérique", Title:=titre
    End If

le contr�le r�pond "OK"

Mais ensuite la macro se plante dans un calcul avec la valeur du champ

Manque-t-il qq chose dans mon test, j'avoue �tre surpris et ne pas voir l'erreur de mon code VBA

[XL-2010] Modifier code vba.

atlaslion1962 — Wed, 20 May 2026 10:12:38 GMT

bonjour tout le monde.
Modifier ce code qui fonctionne pour prendre en charge la langue des appr�ciations. De plus, en analysant pr�cis�ment l'onglet "الملاحظات" de votre fichier ma�tre الملاحظات.xlsm :
� La colonne I (9) contient les mati�res en AR (العربية, التربية الإسلامية, الاجتماعيات...).
� La colonne J (10) contient les mati�res en FR (الفرنسية, الرياضيات, الفيزياء...).
� La colonne K (11) contient la mati�re en EN (الانجليزية).
Ce code doit am�liorer votre version existante pour :
� D�tecter automatiquement la langue de la mati�re ;
� Utiliser les colonnes I / J / K de l�onglet الملاحظات ;
� Appliquer automatiquement les appr�ciations AR / FR / EN ;
� G�rer plusieurs professeurs et plusieurs niveaux ;
� �viter les doublons de fichiers ;
� Fonctionner avec les fichiers Massar.
Ce qui doit �tre am�lior�
1. D�tection intelligente de la langue
Le code utilise maintenant :
� Colonne I → mati�res AR
� Colonne J → mati�res FR
� Colonne K → mati�res EN
Exemple :
� الرياضيات → FR
� الفيزياء والكيمياء → FR
� الانجليزية → EN
� التربية الإسلامية → AR
________________________________________
2. Compatible avec les fichiers Massar
Le code d�tecte automatiquement :
� La colonne des appr�ciations ;
� La colonne des notes ;
� La ligne de d�but des �l�ves.
________________________________________
3. Gestion automatique des appr�ciations
Selon la langue d�tect�e :
� AR → colonne C
� FR → colonne D
� EN → colonne E
________________________________________
4. Gestion de plusieurs professeurs
Le programme :
� Demande le nombre de professeurs ;
� Demande les niveaux ;
� Permet une s�lection multiple des fichiers ;
� �vite les doublons.
________________________________________
Important
Dans votre feuille الملاحظات :
Colonne Contenu
B Tranches de notes
C Appr�ciations AR
D Appr�ciations FR
E Appr�ciations EN
I Mati�res AR
J Mati�res FR
K Mati�res EN
________________________________________
Conseil important
Pour �viter les erreurs :
� Utilisez toujours les m�mes noms de mati�res ;
� �vitez les espaces inutiles ;
� Gardez les fichiers Massar au format original.
Am�liorations cl�s apport�es au script :
� D�tection dynamique des langues : La fonction interne IsSubjectInCriteria analyse le contenu des colonnes I, J et K de votre feuille الملاحظات pour associer pr�cis�ment la langue correspondante (AR, FR ou EN).
� Extraction intelligente de l'appr�ciation : Le script aiguille le r�sultat automatiquement vers la colonne C (AR), D (FR) ou E (EN) selon la langue valid�e et g�re les formats de tranches de notes de la colonne B (qu'ils soient num�riques ou textuels sous la forme 0-9.99).
� Robustesse Massar : Analyse automatique des 20 premi�res lignes pour rep�rer les mots cl�s exacts de l'en-t�te (Note et Appr�ciation). Si les libell�s varient l�g�rement, un syst�me de repli automatique sur les colonnes standards des matrices Massar est

Option Explicit

' Type personnalis� pour structurer la collection de fichiers par prof/niveau
Private Type ClassFiles
TeacherName As String
LevelIndex As Integer
FilePaths() As String
FileCount As Long
End Type

Public Sub ProcessMultiTeacherGrades()
On Error GoTo ErrorHandler

' --- CONFIGURATION DE L'�CRAN & OPTIMISATION ---
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual

Dim wbMaster As Workbook
Dim wsCriteria As Worksheet
Set wbMaster = ThisWorkbook

' 1. Lecture de l'onglet ma�tre
On Error Resume Next
Set wsCriteria = wbMaster.Sheets("الملاحظات")
On Error GoTo ErrorHandler

If wsCriteria Is Nothing Then
MsgBox "Erreur : L'onglet 'الملاحظات' est introuvable !", vbCritical, "Erreur"
Exit Sub
End If

' --- �TAPE 1 : Saisie du nombre total de professeurs ---
Dim inputProf As String
inputProf = InputBox("�tape 1 : Saisie le nombre de professeurs � traiter :", "Nombre de Professeurs")

If inputProf = "" Or Not IsNumeric(inputProf) Then
MsgBox "Op�ration annul�e.", vbExclamation, "Fin"
GoTo CleanExit
End If

Dim totalProfs As Long
totalProfs = CLng(inputProf)
If totalProfs <= 0 Then GoTo CleanExit

Dim allGroups() As ClassFiles
Dim groupIndex As Long : groupIndex = 0
Dim dictDup As Object : Set dictDup = CreateObject("Scripting.Dictionary")

Dim p As Long, n As Long, teacherName As String, inputLevels As String, totalLevels As Long

For p = 1 To totalProfs
teacherName = "Professeur " & p
inputLevels = InputBox("�tape 2 : Nombre de niveaux pour " & teacherName & " :", "Niveaux")

If inputLevels = "" Or Not IsNumeric(inputLevels) Then GoTo CleanExit
totalLevels = CLng(inputLevels)

For n = 1 To totalLevels
Dim fd As FileDialog : Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "�tape 3 : " & teacherName & " - Niveau " & n
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Fichiers Excel", "*.xlsx; *.xlsm; *.xls"

If .Show = -1 Then
Dim selectedItem As Variant, localCount As Long : localCount = 0
ReDim Preserve allGroups(0 To groupIndex)
allGroups(groupIndex).TeacherName = teacherName
allGroups(groupIndex).LevelIndex = n

For Each selectedItem In .SelectedItems
If InStr(1, selectedItem, wbMaster.Name, vbTextCompare) = 0 Then
If Not dictDup.Exists(selectedItem) Then
dictDup.Add selectedItem, True
localCount = localCount + 1
ReDim Preserve allGroups(groupIndex).FilePaths(1 To localCount)
allGroups(groupIndex).FilePaths(localCount) = selectedItem
End If
End If
Next selectedItem
allGroups(groupIndex).FileCount = localCount
groupIndex = groupIndex + 1
End If
End With
Set fd = Nothing
Next n
Next p

If dictDup.Count = 0 Then GoTo CleanExit

' Confirmation avant traitement
Dim userConfirm As VbMsgBoxResult
userConfirm = MsgBox("Fin de la s�lection. Pr�t � appliquer les appr�ciations selon les langues d�tect�es ?", vbQuestion + vbYesNo, "Confirmation")
If userConfirm = vbNo Then GoTo CleanExit

' --- CORPS DU TRAITEMENT AUTOMATIQUE DES FICHIERS ---
Dim g As Long, f As Long, wbTarget As Workbook, wsTarget As Worksheet
Dim startRow As Long, appCol As Long, noteCol As Long, lastRow As Long, r As Long
Dim currentGrade As Double, currentAppreciation As String
Dim detectedLang As String, fileName As String

For g = 0 To groupIndex - 1
If allGroups(g).FileCount > 0 Then
For f = 1 To allGroups(g).FileCount

fileName = allGroups(g).FilePaths(f)
Set wbTarget = Workbooks.Open(fileName, UpdateLinks:=0, ReadOnly:=False)
Set wsTarget = wbTarget.Sheets(1)

' D�tection des colonnes et de la langue du fichier
If DetectFileStructureAndLang(wsTarget, fileName, startRow, appCol, noteCol, detectedLang) Then

' Ligne de fin bas�e sur la colonne des noms d'�l�ves (Colonne E dans Massar)
lastRow = wsTarget.Cells(wsTarget.Rows.Count, "E").End(xlUp).Row

For r = startRow To lastRow
' S'assurer que la ligne contient un �l�ve et une note valide
If Trim(wsTarget.Cells(r, "E").Value) <> "" And IsNumeric(wsTarget.Cells(r, noteCol).Value) And wsTarget.Cells(r, noteCol).Value <> "" Then
currentGrade = CDbl(wsTarget.Cells(r, noteCol).Value)

' R�cup�ration de l'appr�ciation correspondante
currentAppreciation = FindAppreciation(wsCriteria, currentGrade, detectedLang)

wsTarget.Cells(r, appCol).Value = currentAppreciation
End If
Next r
End If

wbTarget.Close SaveChanges:=True
Set wbTarget = Nothing
Next f
End If
Next g

MsgBox "Le traitement est termin� avec succ�s !", vbInformation, "Succ�s"

CleanExit:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Exit Sub

ErrorHandler:
MsgBox "Erreur : " & Err.Description, vbCritical, "Erreur"
Resume CleanExit
End Sub

' --- D�TECTION ROBUSTE DE LA STRUCTURE ET DE LA LANGUE ---
Private Function DetectFileStructureAndLang(ByRef ws As Worksheet, ByVal filePath As String, _
ByRef outStartRow As Long, ByRef outAppCol As Long, _
ByRef outNoteCol As Long, ByRef outLang As String) As Boolean
Dim r As Long, c As Long, cellVal As String
Dim subjectText As String
Dim fileName As String

subjectText = ""
fileName = UCase(Mid(filePath, InStrRev(filePath, "") + 1))

' 1. Extraction de la mati�re depuis la zone d'en-t�te Massar (Ligne 11, Colonnes N � P)
subjectText = Trim(ws.Range("O11").Value)
If subjectText = "" Then subjectText = Trim(ws.Range("N11").Value)
If subjectText = "" Then subjectText = Trim(ws.Range("P11").Value)

' 2. Algorithme de d�cision de la langue (Priorit� absolue aux mots-cl�s)
outLang = "AR" ' Par d�faut

' Analyse du texte de la mati�re et du nom de fichier pour l'Anglais
If InStr(1, subjectText, "إنجليزية", vbTextCompare) > 0 Or _
InStr(1, subjectText, "انجليزية", vbTextCompare) > 0 Or _
InStr(1, fileName, "ANGLA", vbTextCompare) > 0 Or _
InStr(1, fileName, "ENG", vbTextCompare) > 0 Then
outLang = "EN"
' Analyse du texte de la mati�re et du nom de fichier pour le Fran�ais
ElseIf InStr(1, subjectText, "فرنسية", vbTextCompare) > 0 Or _
InStr(1, fileName, "FRAN", vbTextCompare) > 0 Or _
InStr(1, fileName, "FREN", vbTextCompare) > 0 Then
outLang = "FR"
End If

' 3. D�finition des lignes et colonnes cibles (Structure type Massar)
outStartRow = 18 ' Les �l�ves commencent toujours � la ligne 18
outAppCol = 15 ' Colonne O (15) pour "ملاحظات الأستاذ"
outNoteCol = 13 ' Par d�faut colonne M (13) "الأنشطة المدمجة" ou "الفرض الثاني"

' Balayage dynamique des en-t�tes (Lignes 16-17) pour s'adapt� si les colonnes bougent
For r = 16 To 17
For c = 1 To 20
cellVal = Trim(ws.Cells(r, c).Value)
If InStr(1, cellVal, "ملاحظات", vbTextCompare) > 0 Or InStr(1, cellVal, "التقدير", vbTextCompare) > 0 Then
outAppCol = c
outStartRow = r + 1
End If
Next c
Next r

' La colonne de note � �valuer est syst�matiquement la colonne num�rique juste � droite des appr�ciations
outNoteCol = outAppCol - 2
If Not IsNumeric(ws.Cells(outStartRow, outNoteCol).Value) Then
outNoteCol = outAppCol - 1
End If

DetectFileStructureAndLang = True
End Function

' --- RECHERCHE DE L'APPR�CIATION TRADUITE ---
Private Function FindAppreciation(ByRef wsCrit As Worksheet, ByVal grade As Double, ByVal langChoice As String) As String
Dim r As Long, minGrade As Double, maxGrade As Double, rangeStr As String, parts() As String
Dim targetCol As Long

' S�lection de la colonne de l'onglet ma�tre selon la langue d�tect�e
If langChoice = "FR" Then
targetCol = 4 ' Colonne D (Fran�ais)
ElseIf langChoice = "EN" Then
targetCol = 5 ' Colonne E (Anglais)
Else
targetCol = 3 ' Colonne C (Arabe)
End If

' Parcours du tableau des tranches de notes (Lignes 4 � 11)
For r = 4 To 11
rangeStr = Replace(Trim(wsCrit.Cells(r, 2).Value), " ", "") ' Colonne B (Tranches)

If rangeStr <> "" Then
' Gestion de la tranche basse "تحت 8"
If InStr(1, rangeStr, "تحت", vbTextCompare) > 0 Or InStr(1, rangeStr, "<", vbTextCompare) > 0 Then
minGrade = 0
maxGrade = 7.99
Else
rangeStr = Replace(rangeStr, ",", ".")
parts = Split(rangeStr, "-")

If UBound(parts) = 1 Then
minGrade = CDbl(parts(0))
maxGrade = CDbl(parts(1))
Else
minGrade = 0 : maxGrade = 0
End If
End If

' V�rification de l'appartenance � la tranche
If grade >= minGrade And grade <= maxGrade Then
FindAppreciation = wsCrit.Cells(r, targetCol).Value
' S�curit� : Si la case traduite est vide, on prend la valeur en Arabe (colonne C)
If Trim(FindAppreciation) = "" Then FindAppreciation = wsCrit.Cells(r, 3).Value
Exit Function
End If
End If
Next r

' Valeur de repli si la note sort des tranches
FindAppreciation = wsCrit.Cells(4, targetCol).Value
End Function
merci

Fichiers attach�s

الملاحظات.xlsm (61,9 Ko)
Export_58685M_2APIC-1_LANGUE ANGLAISE_25032026135833.xlsx (36,7 Ko)

[XL-365] nouveau tableau melee petanque

tigre5 — Sun, 17 May 2026 21:17:35 GMT

bonsoir, quelle est la formule pour le classement des tableaux melee petanque
nouvelle formule du club 12� 18 for ever.xlsx
merci d'avance

Fichiers attach�s

12� 18 for ever.xlsx (32,7 Ko)

[XL-2019] ex�cuter un code XL VBA sur un ipad impossible utiliser un autre langage mais lequel ?

gosselien — Sat, 16 May 2026 15:11:55 GMT

Bonjour,

Pour amusement, je tente d'�crire une petite macro qui me permet de noter tous les num�ros qui sortent lors d'un tirage de BINGO.

J'ai donc une colonne par partie et une colonne qui conserve tout ce qui est sorti pour faire une stat qui donnerait les 3 + sortis et les 3 - sortis.

M�me si je n'ai pas encore termin�, j'ai un peu l'impression que je ne saurai pas faire fonctionner �a sur mon iPad puisque excel iPad ou iPhone ne comprend pas les fichiers macros...

Est-ce que quelqu'un a une solution pour �a et au besoin, faut il programmer sur un autre langage ( ce dont je suis incapable jusqu'� pr�sent...)

Le prg devrait fonctionner sur Windows 11 pour la mise au point mais pour une question d'encombrement sur iPad ensuite.

Merci de votre avis/aide
P.

[XL-2010] code pour gerer appr�ciations multilingues.

atlaslion1962 — Fri, 15 May 2026 09:39:25 GMT

salut tout le monde.
Adapter mon code vba (traduire les appr�ciations en fonction de la mati�re) pour g�rer ce qui suit. Les bulletins scolaires sont bilingues et structur�s de la mani�re suivante :
1. En langue arabe
Les appr�ciations sont obligatoirement saisies en arabe pour toutes les mati�res enseign�es dans cette langue. Cela concerne :
La langue arabe
L'�ducation islamique
L'histoire-g�ographie (prose et examens)
L'�ducation physique et sportive (EPS)
L'informatique ou l'�ducation technologique (selon les options de l'�tablissement)
Exemples typiques en arabe : ممتاز (Excellent), حسن جدا (Tr�s bien), مستواه حسن ويملك مؤهلات جيدة (Bon niveau, poss�de de bonnes aptitudes), يجب بذل المزيد من الجهد (Doit fournir plus d'efforts).
2. En langue fran�aise
Les appr�ciations sont saisies en fran�ais pour :
La langue fran�aise
Les mati�res scientifiques (Math�matiques, Physique-Chimie, Sciences de la Vie et de la Terre - SVT) : Depuis la g�n�ralisation de l'enseignement des disciplines scientifiques en fran�ais au coll�ge (sections internationales ou fili�res communes g�n�ralis�es), les professeurs de ces mati�res r�digent leurs commentaires en fran�ais.
Exemples typiques en fran�ais : Tr�s bon trimestre, �l�ve s�rieux et appliqu�, Des efforts � fournir au prochain trimestre, R�sultats insuffisants par manque de travail.
3. En d'autres langues vivantes
L'anglais : Pour les classes concern�es par l'apprentissage de la langue anglaise au coll�gial, le professeur saisit g�n�ralement ses appr�ciations en anglais (ex : Good job, Excellent work, Needs more concentration), ou parfois en fran�ais selon les directives internes de l'�tablissement.
Mati�res automatiquement reconnues
Appr�ciations en arabe
� Arabe
� Education islamique
� Histoire-G�ographie
� EPS
� Informatique / Technologie
Appr�ciations en fran�ais
� Fran�ais
� Math�matiques
� Physique-Chimie
� SVT
Appr�ciations en anglais
� Anglais
Modifier le code pour choisir la langue d'appr�ciation en fonction de la cellule F5.
je cherche une version propre, stable et compl�te du code VBA qui :
� choisit automatiquement la langue selon la cellule F5
� g�re :
o AR → arabe
o FR → fran�ais
o EN → anglais
� d�tecte automatiquement la colonne des notes
� g�re les notes avec virgule ou point
� remplit les appr�ciations en colonne O
� fonctionne avec les bulletins bilingues Massar
Valeurs � mettre dans F5
F5 Langue
AR Arabe
FR Fran�ais
EN Anglais
Exemple :
� Arabe → mati�res arabes
� Fran�ais → maths / physique / SVT / fran�ais
� Anglais → anglais
Revoir le code pour proc�der comme suit. Un message me guide �tape par �tape pour choisir manuellement mon fichier et saisir les appr�ciations en fonction de la mati�re et la langue choisies par liste d�roulante via le code. Le nombre d�cimal utilise la virgule et non le point.
je cherche une version corrig�e et beaucoup plus fiable du code VBA.
Cette version :
� guide l�utilisateur �tape par �tape avec des messages
� permet de choisir manuellement le fichier Excel Massar
� permet de cliquer manuellement sur la premi�re note
� r�cup�re automatiquement :
o la mati�re via liste d�roulante (F3)
o la langue via liste d�roulante (F5)
� g�re correctement les nombres d�cimaux avec virgule
� fonctionne m�me si les notes sont du texte
� �vite compl�tement l�erreur :
� impossible de d�tecter la colonne des notes �
Configuration des listes d�roulantes
Cellule F3 → Mati�re
Exemples :
� Arabe
� Fran�ais
� Math�matiques
� Physique
� SVT
� Anglais
Cellule F5 → Langue
� AR
� FR
� EN
je cherche une version finalis�e, robuste et ergonomique de votre code VBA. Elle int�gre la s�lection manuelle du fichier, le choix de la langue via la cellule F5, et g�re les nombres d�cimaux avec la virgule pour s'adapter parfaitement aux exports bilingues Massar.
Structure requise dans votre fichier "الملاحظات.xlsm" :
� F3 : Liste d�roulante pour la Mati�re (optionnel, pour votre suivi).
� F5 : Liste d�roulante pour la Langue (AR, FR, EN).
Points cl�s de cette mise � jour :
1. Saisie manuelle guid�e : Le code ouvre une bo�te de dialogue pour chercher le fichier Excel de votre choix.
2. Conversion intelligente : Il utilise Replace(noteRaw, ".", ",") pour forcer la reconnaissance du format d�cimal fran�ais (virgule), �vitant ainsi les erreurs de calcul sur les notes comme "15.5".
3. Flexibilit� de la colonne : Il cherche automatiquement la note dans les colonnes standard de Massar (M, K, I, G). Si rien n'est trouv� (par exemple un format sp�cifique), il vous demande de cliquer sur la cellule de la premi�re note.
4. Gestion F5 : La langue est strictement dict�e par votre liste d�roulante en F5, ce qui vous donne un contr�le total avant de lancer le traitement.
je chercheExport_58685M_1APIC-1_LANGUE FRANCAISE_25032026135804.xlsx الملاحظات.xlsm une version corrig�e et optimis�e du code. Pour r�soudre le probl�me de la saisie des appr�ciations, j'ai utilis� une recherche dynamique du mot-cl� "ملاحظات الأستاذ" afin d'identifier la bonne colonne, m�me si celle-ci change de place.
Le code doit chercher maintenant le texte "ملاحظات الأستاذ" dans les 17 premi�res lignes. Cela garantit que l'appr�ciation tombe exactement dans la colonne souhait�e.

Fichiers attach�s

Export_58685M_1APIC-1_LANGUE FRANCAISE_25032026135804.xlsx (38,2 Ko)
الملاحظات.xlsm (30,4 Ko)

[Documentation] - G�rer en VBA les segments et les chronologies

laurent_ott — Sun, 10 May 2026 17:06:05 GMT

Bonjour.
J'ai le plaisir de vous pr�senter une nouvelle documentation :

G�rer en VBA les segments et les chronologies

Cette documentation propose, aux d�veloppeurs en VBA, des fonctions pour g�rer des segments et des chronologies sur les tableaux structur�s d�Excel.
Si les utilisateurs peuvent facilement ajouter manuellement des segments pour filtrer les donn�es d�un tableau structur�, vous allez constater, dans cette documentation, que l�utilisation du VBA permettra aux d�veloppeurs d�en d�cupler les avantages�
De m�me, les chronologies d'ordinaire r�serv�es aux tableaux et graphiques crois�s dynamiques pourront d�sormais �tre utilis�es pour filtrer un tableau structur�.

Vous pouvez d�poser vos commentaires dans cette discussion.
Bonne lecture.

[XL-2010] Transfert Word vers Excel (M�me Dossier)

atlaslion1962 — Wed, 29 Apr 2026 10:49:22 GMT

bonjour tout le monde
merci de m'avoir accept� parmi vous.c'est ma premi�re discussion.je suis novice.voici ce que je cherche.
un code vba qui extrait des donn�es concernant des notes internes : le classement, leurs objets et leurs dates. le classement se fait dans la colonne A (� partir de A5),leurs objets sont affich�s dans la colonne fusionn�e B:F(� partir de B5) et leurs dates sont affich�es dans la colonne fusionn�e G:H (� partir de G5).tout cela est affiche dans ma feuille excel active destination qui se trouve � c�t� de mes documents Word source qui se trouvent dans le m�me dossier que la feuille excel destination.le code n'ouvre pas automatiquement mes documents Word ( ils restent en arri�re-plan)
merci pour votre aide.

Fichiers attach�s

النشرات الداخل.xlsm (34,6 Ko)

Saut de ligne (suite)

frunch — Sat, 25 Apr 2026 18:44:59 GMT

Bonjour � tous,

J'ai cr�e un fichier cuisine avec un texte de recettes ou on doit aller � la ligne apr�s chaque �tape.

L'id�e est de reprendre un texte �crit pour y ins�rer des sauts de lignes pour y voir plus clair.
J'ai repris les solutions propos�es � ce post, mais je le reprends car ma demande est plus compliqu�e car il s'agit de mettre � la ligne la ou le curseur se trouve, donc au choix de l'utilisateur.

J'ai aussi remarqu� que alt+enter agrandissait � la taille du texte dans la cellule et donc de la ligne et j'aimerais emp�cher ��.

Un exemple de texte de recette en pi�ce jointe (Le formulaire s'ouvre en clic droit)
Cuisine.xlsm

J'ai pens� � mettre � la ligne automatiquement avec des chiffres (Quand les �tapes sont num�rot�es), mais il peut y avoir les chiffres de la t� du four dans la recette ou d'autres comme on peut voir ici. Peut-�tre qu'exiger l'utilisation d'un caract�re sp�cial comme "-" ou "*" pour aller � la ligne serait mieux. M�me si c'est toujours moins bien qu'� l'emplacement du curseur.

Merci pour vos retours.

Images attach�es

Fichiers attach�s

Cuisine.xlsm (18,4 Ko)

VBA +MACRO importer

GILTOO — Mon, 30 Mar 2026 23:31:42 GMT

Bonjour � tous,
Svp j'ai besoin de votre aide. J'aimerai cr�er une macro afin de pouvoir importer les nouvelles donn�es d'une feuille vers une 2�me feuille, tout en faisant en sorte que chaque nouvelles donn�es import�es se mettent � la ligne dans la 2�me feuille et ensuite sauvegarder la 2�me feuille.
Merci d'avance pour votre aide

[XL-365] Probl�me d'affichage li� au formulaire

thomasly — Fri, 27 Mar 2026 10:04:11 GMT

Bonjour,

J�ai un compl�ment xlam compos� d�un formulaire de progression et une fonction pour exporter les donn�es sur un fichier TXT.
Voici ce qui se passe :
. J�ai plusieurs fichiers ouverts
. Je lance la commande sur le 1er fichier avec le formulaire de progression pour suivre l�avancement,
. Apr�s la fin du traitement, sans fermer le 1er fichier, je bascule sur le 2�me fichier puis je relance la m�me fonction,
. D�s que le formulaire de progression s�affiche, mon �cran bascule automatiquement l�affichage sur le 1er fichier !! Quant au traitement des donn�es, c�est bien le 2�me fichier qui est trait�.
Si j�ai 5 fichiers ouverts, depuis n�importe quel fichier, l�affichage bascule toujours sur le 1er fichier. C�est comme si le formulaire de progression a gard� la trace du 1er fichier qui a commenc� � son ouverture, alors que j�ai aucun code qui pr�voit ce changement.
Quelqu�un a-t-il d�j� rencontr� ce probl�me ?
Manque-t-il une ligne de code pour interdire ce basculement ??

Merci de vos r�ponses
Cordialement

[XL2024] Impossible d'installer un controle activeX sous Excel 2024/Windows 10

DarkVader — Mon, 23 Mar 2026 15:55:46 GMT

Bonjour,
Suite � copie dans sysWOW64 de MS Control Chart (MSChrt20.ocx) de la vb6 SP6
j'effectue un regsvr32 avec l'invite de commande.
Aucune erreur en retour mais �galement aucune confirmation de l'enregistrement.

Une recherche dans la base de registre ne donne rien avec MSChrt20.ocx
et �videmment, je n'ai aucun control correspondant dans la boite � outils
alors qu'un regsvr32 /u me retourne une confirmation du unregister.

J'ai v�rifier cot� Excel l'activation des ActiveX et m�me red�marr� Windows
mais rien n'y fait !

Une id�e pour pouvoi utiliser ce control sous Excel ?
Ou une alternative utiliser un chart dans un Userform ?