Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Un AND qui remonte

Un AND qui remonte

33 réponses
Avatar
Comres.metz
Bonjour à toutes et à tous,

Je voudrais combiner ces 2 formules :

For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1
Step -1
If Cells(lin, 1) = " " Then Rows(lin).Delete shift:=xlUp
Next lin

Pour remonter de la derniere ligne à la premiere et

teste = Range("E26") = "3 mois") AND Range("A26") = " "
if teste = True then
Range("N26") = "1"
end if
qui me teste 2 conditions sur la ligne et qui retourne1 si les 2 conditions
sont bonnes.
Je voudrais pouvoir tester ces 2 conditions ligne par ligne en remontant.
Merci d'avance.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
ChrisV
Pffff... C'est quoi ce truc par rapport à ce qui a déjà
été publié dans ce fil ?


Le soucis du détail Alain...
et aucune volonté d'impressionner quiconque...


ChrisV


"AV" a écrit dans le message de news:

Pffff... C'est quoi ce truc par rapport à ce qui a déjà été publié dans ce
fil ?
Repfff.... c'est pas parceque t'as ajouté une louche de Set et une pincée
de
Msgbox pour impressionner le passant qui passe que...
Re...re...pfff

AV


Avatar
ChrisV
Curieux...
pas de souriette non plus sur celui-ci...


ChrisV
[perplexe]


"jps" a écrit dans le message de news:

d'abord, une bande de deux personnes, ce n'est pas une bande surtout
lorsque l'une d'elles n'est même pas concernée par l'apostrophe....
jps

"ChrisV" a écrit dans le message de news:
%23mY$
Ahhhh... merci Hervé,

Ça fait du bien de trouver un peu de compréhension face à cette bande de
scudeurs d'AV et de JP ! ;-)





Avatar
ChrisV
De rien Twinley ! ;-)


ChrisV


"twinley" a écrit dans le message de news:
%23w$
si je peux mimisser...

merci ChrisV, un petit bijou qui me va très bien !

je jette mon usine à gaz.

à+twinley

ChrisV wrote:
Avant que l'on ne me renvoie au piquet ! ;-)

Sub zaza()
On Error Resume Next
lgD = Cells.Find("*", [IV65536], , , xlByRows).Row
coD = Cells.Find("*", [IV65536], , , xlByColumns).Column
lgF = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
coF = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
If Err.Number <> 0 Then
MsgBox "Aucune saisie présente !"
Else
Set deP = Cells(lgD, coD)
Set fiN = Cells(lgF, coF)
If deP.Address <> fiN.Address Then
MsgBox deP.Address & ":" & fiN.Address
Else: MsgBox deP.Address
End If
End If
Set deP = Nothing
Set fiN = Nothing
End Sub


ChrisV


"ChrisV" a écrit dans le message de news:
%23mY$

Ahhhh... merci Hervé,

Ça fait du bien de trouver un peu de compréhension face à cette bande de
scudeurs d'AV et de JP ! ;-)

Ça mérite bien un p'tit effort...
et puis...
dans le sud, on ne porte jamais de bonnet d'abord...! ;-)

Sub zaza()
lgD = Cells.Find("*", [IV65536], , , xlByRows).Row
coD = Cells.Find("*", [IV65536], , , xlByColumns).Column
lgF = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
coF = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
Set deP = Cells(lgD, coD)
Set fiN = Cells(lgF, coF)
MsgBox deP.Address & ":" & fiN.Address
Set deP = Nothing
Set fiN = Nothing
End Sub


ChrisV


"Hervé" a écrit dans le message de news:


Salut ChrisV,
Heu... vu l'heure du post, je mets ça sur le compte de la fatigue. ;o)
Hervé.

"ChrisV" a écrit dans le message news:


c'est bonnet blanc/blanc bonnet



Heu...
fait pas très clean quand même... :-(


Sub zaza()
On Error Resume Next
Set derC = Cells.Find("*", , , , , xlPrevious)
Set preC = Cells.FindNext(derC)
If Err.Number <> 0 Then
MsgBox "Aucune saisie présente !"
Else
If derC.Address <> preC.Address Then
MsgBox preC.Address & ":" & derC.Address
Else: MsgBox preC.Address
End If
End If
Set derC = Nothing
Set preC = Nothing
End Sub


ChrisV


"Hervé" a écrit dans le message de news:


c'est bonnet blanc/blanc bonnet


Effectivement, c'est comme $A:$IV
Hervé.

"AV" a écrit dans le message news:


J'ai testé avec valeur en A1 et en IV65536 et le retour est sans





lettre

de

colonne ? ne devrait-il pas être $A$1:$IV$65536 ? alors qu'il est



$1:$65536

??? bizarre


Exact, j'avais constaté (mais j'ai pas de réponse) ce "phénomène"




étrange

mais

bon ...$A$1:$IV$65536 ou $1:$65536 c'est bonnet blanc/blanc bonnet

AV























Avatar
jps
dont worry, chris, elles sont toujours sous-écrites....
jps

"ChrisV" a écrit dans le message de news:

Curieux...
pas de souriette non plus sur celui-ci...


ChrisV
[perplexe]


"jps" a écrit dans le message de news:

d'abord, une bande de deux personnes, ce n'est pas une bande surtout
lorsque l'une d'elles n'est même pas concernée par l'apostrophe....
jps

"ChrisV" a écrit dans le message de news:
%23mY$
Ahhhh... merci Hervé,

Ça fait du bien de trouver un peu de compréhension face à cette bande de
scudeurs d'AV et de JP ! ;-)









Avatar
twinley
Salut jps,

Je vois que tu es toujours aux aguets. Je doute que la vigne t'interesse
au plus haut point ! La dive bouteille a plus d'intérêt. Je ne suis pas
calé en géo mais je placais la Vézère du côté de Sarlat, Bergerac...
Pas de coteaux, mais beaucoup de grottes, l'ancêtre de la cave.

8-) (ma préférée pour les amateurs)

à+twinley

jps wrote:
hum...y a beaucoup de vignes le long de la Vézère, twinley?
jps

"twinley" a écrit dans le message de news:


mais deux dans une cave de la Vézère, c'est une bande de pochetrons...

à+twinley

AV wrote:

d'abord, une bande de deux personnes, ce n'est pas une bande




Même Sarko considère que c'est à partir de 4 qui stationnent en bas de
l'immeuble que...

AV








Avatar
AV
...mais je placais la Vézère du côté de Sarlat, Bergerac...


C'est un petit peu ça : elle coule au 3/4 en Corrèze et sur la fin en Dordogne
avant de se jeter dans la rivière du même nom.

Quant à jps, va falloir qu'il révise sa vinoclopédie car il existe un
célébrissime cru sur les bords de la Vézère (aux environs de Brive) dénommé "Les
Côteaux de Vertougit"
Et toc !

AV

Avatar
twinley
Quelle culture ! Je croyais que c'était deux rivières différentes...avec
une ligne des eaux entre les deux.

:-[

à+twinley

AV wrote:
...mais je placais la Vézère du côté de Sarlat, Bergerac...



C'est un petit peu ça : elle coule au 3/4 en Corrèze et sur la fin en Dordogne
avant de se jeter dans la rivière du même nom.

Quant à jps, va falloir qu'il révise sa vinoclopédie car il existe un
célébrissime cru sur les bords de la Vézère (aux environs de Brive) dénommé "Les
Côteaux de Vertougit"
Et toc !

AV





Avatar
jps
dont acte...mais comment ai-je pu ignorer ce célébrissime cru?
serait-il fait avec la bruyère qui fleurit au flanc des Monédières?
jps

"AV" a écrit dans le message de
news:
...mais je placais la Vézère du côté de Sarlat, Bergerac...


C'est un petit peu ça : elle coule au 3/4 en Corrèze et sur la fin en
Dordogne

avant de se jeter dans la rivière du même nom.

Quant à jps, va falloir qu'il révise sa vinoclopédie car il existe un
célébrissime cru sur les bords de la Vézère (aux environs de Brive)
dénommé "Les

Côteaux de Vertougit"
Et toc !

AV





Avatar
Michael
Bonjour,

J'aimerai savoir comment conserver une selection de plusieurs feuilles
manipuler des feuilles une a une
Retrouver cette sélection

Merci beaucoup
Michael
Avatar
AV
...ai-je pu ignorer ce célébrissime cru?
Je me le demande !

(environ 500 bouteilles par an...)

serait-il fait avec la bruyère qui fleurit au flanc des Monédières?
Achh..non : les monédières sont à 100 bornes !


AV(iticulteur)

1 2 3 4