Recherche:

Bonjour
et si simplement tu testais si la cellule contient une donnée, cela sera serait il suffisant

If Reglement >= 1 And Intervenant >= 1 And Nom <> "" Then

Bonjour

Perso j'utilise ça. Je l'ai adapté en fonction des noms que tu as donné.

Sub export()
Dim F1 As Workbook
Dim F2 As Workbook

Set F1 = ThisWorkbook
Set F2 =...

Bonjour
Sans etre sur d'avoir tout compris de l'exercice.

185294

Sub absence()

For i = 1 To Len([a5])
a = Mid([a5], i, 1)
b = Mid([a5], i + 1, 1)

Bonjour


Sub Allo()
Dim a As Integer
dim i as integer

For i = 1 To Len(Range("a1"))
a = Asc(Mid(Range("a1"), i, 1))

il faut modifier le <> en = puisque l'on recherche une couleur equivalente a la cellule de depart

oui bien vu, moi, pas fais attention, moi pas concentrer
+ 1 pour parmi

Bonjour

me parait bizarre ça

While Rng1.Offset(i, Decal) <> Cells(i, 1).Font.ColorIndex = 4

Je l'aurais plutôt ecris comme ça sans prejuger du resultat

While Rng1.Offset(i,...

la sub est-elle ecrite dans la feuille ?
la recherche effectué dans la colonne A doit-elle reellement se faire sur la feuille "Impression"?

Une astuce dans ce genre pourrait-elle te convenir
on recherche un egal "=" dans la cellule au dessus, ci cest le cas, on la passe en text


If InStr("cellleleaudessus", "=") Then...

Bonjour

Pourquoi selectionner cette cellule
range("a1")= range("a1") +1 en debut de code incrementera 1 dans la cellule concerné, pas besoin de select.

Est ce qu'il y a au moins une donnée en colonne A de la feuille "Impression" ?
Aller chercher la derniere cellule vide d'une colonne vide te renvoie 65500....ou plus en fonction du excel utiliser...

integer = 32767, etonnant et pas courant, un classeur contenant autant de ligne

je suis bete, recherche de haut en bas

.Range("A2").End(xlDown).Row

a changer en , recherche de bas en haut
...

Bonjour
Tu essaie de coller dans une cellule fusionné. ou a partir d'une cellule fusionné.
Il faut que les plages de depart et d'arriver soit de taille identique.
Fais le en manuel, tu verras le...

Bonjour

Pourquoi pas passer toutes la colonne en texte en debut de code

Columns("A:A").NumberFormat = "@"

ou alors un truc du genre cells(1,1).numberformat = "@" evite le select

Bonjour


Q = Range("A2").End(xlDown).Row

En mettant un petit point apres =
genre
Q = .Range("A2").End(xlDown).Row

Q par ailleurs inutile

Bonsoir Patrick
Je sais, je l'ai fait un peu a l'arrache hier soir.
Exemple a ne pas suivre.:lol:
Parti sur une idée, j'ai virer en court de route et pas vraiment nettoyer.

Bonsoir


Sub CommandButton20()
'necessite d'activé Microsoft Scripting Runtime
'Necessite l'activation de la reference Microsoft Windows Image Acquisition Library V2.00
Static FSO As...

Bonsoir

Oui mais CM010 n'est pas present dans la colonne 16 ;)


Sub Doubler()
Dim CeLL As Range, PlaGe As Range, Oui As Range

Set PlaGe = Range("a5:a" & [a65000].End(xlUp).Row)
For Each...

Bonsoir

point A : Ne connaissant rien a l'articulation de ton classeur, j'ai coder sur ce principe
plusieurs feuilles, chacune appeler PRET, VERI et FINT
Une cle, sans doute OI, que je recherche...

Bonsoir, par exemple

Sub eliminer_doublon()
Dim i As Integer, j as integer
Dim DouBlon As Range

ArrWd = Split("pret,veri", ",")
On Error Resume Next
For i = 0 To UBound(ArrWd)
With...

bonjour


Sub bouboucle()

x = 3
pas = 0.1
Do
x = x + pas
Cells(2, 1) = x

Bonjour
plutot

=SOMMEPROD(SOMME.SI(INDIRECT(NomsFeuilles&"!H5:H32");A3;INDIRECT(NomsFeuilles&"!J5:J32")))
pour remplacer
...

Bonsoir
Je serai curieux de tester votre classeur
Pour ne remplacer que le debut, j'ai ça


Sub Forecast()
'Déclaration des variables
Dim ACellB As Range 'cellule active de la feuille...

Bonjour
Si j'ai bien compris le probleme, ceci devrait alors faire cela


Sub rirette()
Dim cell As Range, Present As Range, Tranche As Range
Dim r As Integer

For Each cell In...

Bonsoir, premier problème
remplacer dans sub ville change

Me.Lycee.AddItem c
par

Me.Lycee.AddItem RTrim(Left(c, InStr(c, "(") - 1))
ceci afin de permettre d'eliminer le texte entre...