Recherche:

Bonjour

exemple à adapter



vide = False
For X = 1 To 10
If UserForm1.Controls("T" & X).Value = "" Then vide = True
Next

Bonjour

quelque Hypothèses à la volée

une solution pourrais être de dupliquer la feuille ou de copier la plage dans une nouvelle feuille et de la supprimer après traitement.

sinon...

Bonjour



oui mais, Dans Sub test le Exit Sub est mal placé car le code qui le suit ne sera jamais executé.

soit
- tu veux quitter le sub sur un défaut spécifique, dans ce cas tu met le...

Bonjour

peut-être en raffraichissant le presse papier de temps en temps

En fouillant un peu j'ai trouvé ce code
à placer dans un nouveau module

Private Declare Function CloseClipboard...

Bonjour

tu peux utiliser la propriété Enable du textBox

Private Sub CbNum_Change()
valeur = CbNum 'expliqué plus haut
lig = Columns(1).Find(valeur, Range("A65536")).Row 'expliqué plus haut...

pour écrire dans une cellule tu n'as pas besoin de l'activer

regarde le code que je t'ai mis en exemple et travail un peu dessus pour comprendre

Bonjour

Tu aurais utilisé le pas à pas tu te serais apperçu que cette ligne selectionne la colonne Q

ActiveCell.Offset(1, 0).Range("I1").Select

car la ligne précédente effectue un...

Bonjour

j'ai notifié les lignes modifiées ou ajoutées par '###


Sub chef_de_salle()

Dim n°col As Integer ' N° de la colonne établie en fonction de la date et de la periode
Dim...

essaye d'être précis dans tes questions ça évitera de nous ayons à deviner et te fournir des réponses aproximative.

quelle feuille et partir de quelle cellule?

le Findnext est une bonne idée...

Bonjour

il y aurait besoin d'un peu plus d'explications sinon tu risques de te trouver avec des codes qui ne ferons pas ce que tu souhaites.

comment sont organisé les données nom d'étudiants...

Bonjour


Private Sub Workbook_Open()
Dim wsh As Worksheet

For Each wsh In Worksheets
'il faut enlever la protection si elle est présente
wsh.Protect DrawingObjects:=False,...

Bonjour

pour le premier je ne vois pas pourquoi il ne fonctionne pas pour toi car comme je te l'ai dis il fonctionne pour moi.

par contre pour le deuxième
la ligne
If Not...

Bonjour



Sub Btn_calculer()
Application.Calculation = xlCalculationManual
Worksheets("Fiche Perso").Range("R7").Calculate
'pour repasser le calcul en automatique
'Application.Calculation...

Bonjour

Tu pourrais par exemple dire

Public maVar as string
c'est une variable globale et commune au projet, disponible en lecture et en écriture par tous les codes présent dans un même...

Bonjour

je viens de tester le premier code et il a très bien fonctionné.

questions :

As-tu vérifier que le fichier est bien présent à cet emplacement ?
Quel est le message d'erreur...

C'est tout à fait ça, et il est préférable de toujours préciser sur quoi on travail, ça évite les erreurs.

bonne soirée

Bonjour

il y a un très bon exemple de l'excellent silkyroad sur ce site regarde

http://silkyroad.developpez.com/VBA/ConversionCodesCouleurs/

Merci à toi aussi pour la réponse, je vais regarder cette fonction texte.

bonne continuation.

Le problème viens effectivement de la formule que tu utilise dans la colonne D de la feuille pour HTML.

il faudrait mettre la date au format jj/mm/aaaa dans la formule mais ça je ne sais pas...

J'ai trouvé, comme on travail avec un "with worksheets.." il faut aussi faire référence avec le point devant les cells ce qui donne


Set zone_recherche = .Range(.Cells(3, n°col), .Cells(9,...

je viens te tester avec ton code et tous vas bien.

La je commence à etre sec, As tu moyen de mettre ton classeur au moins pour voir le type de données que tu veux écrire ?

J'avais bien compris mais ici ça fonctionne

pourrais tu remettre ton code pour voir car j'ai essayé avec date, chiffre, lettre et different format et ça marche.;)

plutot que supprimer du code j'en ai ajouté pour que tu puisses le faire en auto ou en manu

j'ai bien commenté le code pour que tu puisse t'y retrouvé

il faut remplacer le code entre la...

J'ai effectivement l'impression que tu commence à tous mélanger donc j'ai repris ton code et je l'ai modifier

essaye

Sub test1()

Dim n°col As Integer
Dim zone_recherche As Range
Dim...

c'est ce que fait le .text que je t'ai fais ajouté si la date est affiché comme ça dans la feuille excel.



je ne vois pas trop ce que tu entends pas seulement pour la colonne C, si tu veux...