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
jps
pour ne pas dire "bonnet d'âne"...
allez, ouste, au piquet (de son tipi, oeuf corse) le nordico-catalano-lakota
jps

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

Là c'est "bonnet noir" !
;-)
AV





Avatar
Hervé
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
ChrisV
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
ChrisV
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
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
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
AV
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
AV
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
twinley
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
jps
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






1 2 3 4