Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule, mais
je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive pas à
formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Sinon, mets :
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(65536,
Colonne).End(xlUp))
DanielBonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule,
mais je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive
pas à formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Sinon, mets :
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(65536,
Colonne).End(xlUp))
Daniel
Bonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule,
mais je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive
pas à formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Sinon, mets :
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(65536,
Colonne).End(xlUp))
DanielBonjour à toute la communauté,
A l'aide dune procédure, j'essaie de sélectionner une plage de cellule,
mais je n'y arrive pas. C'est au niveau du Set ZoneDateops que je n'arrive
pas à formuler correctement le second Cells(,)
Sub TestPlage()
Sheets("DONNEES").Select
Dim LibDateOps As Range, ZoneDateOps As Range
Dim Ligne As Integer, Colonne As Integer, DernièreLigne As Integer
Dim Cancel As Boolean
Set LibDateOps = Range(Cells(1, 1), Cells(1,
Range("IV1").End(xlToLeft).Column)).Find("DateOps", lookat:=xlWhole)
If LibDateOps Is Nothing Then
Cancel = True
Else
Ligne = LibDateOps.Row + 1
Colonne = LibDateOps.Column
Set ZoneDateOps = Range(Cells(Ligne, Colonne), Cells(Ligne,
Colonne).End(xlUp))
ZoneDateOps.Select
End If
End Sub
Merci d'avance
Bonjour,
A ) Le fait de publier un bout de code ne devrait pas t'empêcher
de définir ton problème. Comme le code n'est pas fonctionnel
ce n'est pas toujours simple de définir tes attentes.
B ) Regroupe tes variables sous la ligne de déclaration de la procédure.
C ) Pour manipuler une plage de cellules, nul besoin de la sélectionner.
Les variables objets sont là pour ça et cela rendre l'exécution du code
plus fluide et rapide !
D ) Pour rechercher une date, lorsque c'est possible, "Match" est plus
efficace que "Find"
Une suggestion de code pour ta procédure
(pas sûr d'avoir compris ce que tu veux faire)
'-----------------------------------------
Sub TestPlage()
'Déclaration des variables
Dim LibDateOps As Range, ZoneDateOps As Range
Dim DateOps As Date, Col As Variant
Dim Cancel As Boolean
DateOps = DateSerial(2010, 3, 20)
With Sheets("DONNEES")
Set LibDateOps = .Range("A1", .Cells(1,
.Range("IV1").End(xlToLeft).Column)) End With
Col = Application.Match(CLng(DateOps), LibDateOps, 0)
If IsError(Col) Then
Cancel = True
Else
Set ZoneDateOps = LibDateOps.Offset(1, Col - 1) _
.Resize(, LibDateOps.Columns.Count - (Col - 1))
MsgBox "ZoneDateOps = " & ZoneDateOps.Address
End If
End Sub
'-----------------------------------------
Bonjour,
A ) Le fait de publier un bout de code ne devrait pas t'empêcher
de définir ton problème. Comme le code n'est pas fonctionnel
ce n'est pas toujours simple de définir tes attentes.
B ) Regroupe tes variables sous la ligne de déclaration de la procédure.
C ) Pour manipuler une plage de cellules, nul besoin de la sélectionner.
Les variables objets sont là pour ça et cela rendre l'exécution du code
plus fluide et rapide !
D ) Pour rechercher une date, lorsque c'est possible, "Match" est plus
efficace que "Find"
Une suggestion de code pour ta procédure
(pas sûr d'avoir compris ce que tu veux faire)
'-----------------------------------------
Sub TestPlage()
'Déclaration des variables
Dim LibDateOps As Range, ZoneDateOps As Range
Dim DateOps As Date, Col As Variant
Dim Cancel As Boolean
DateOps = DateSerial(2010, 3, 20)
With Sheets("DONNEES")
Set LibDateOps = .Range("A1", .Cells(1,
.Range("IV1").End(xlToLeft).Column)) End With
Col = Application.Match(CLng(DateOps), LibDateOps, 0)
If IsError(Col) Then
Cancel = True
Else
Set ZoneDateOps = LibDateOps.Offset(1, Col - 1) _
.Resize(, LibDateOps.Columns.Count - (Col - 1))
MsgBox "ZoneDateOps = " & ZoneDateOps.Address
End If
End Sub
'-----------------------------------------
Bonjour,
A ) Le fait de publier un bout de code ne devrait pas t'empêcher
de définir ton problème. Comme le code n'est pas fonctionnel
ce n'est pas toujours simple de définir tes attentes.
B ) Regroupe tes variables sous la ligne de déclaration de la procédure.
C ) Pour manipuler une plage de cellules, nul besoin de la sélectionner.
Les variables objets sont là pour ça et cela rendre l'exécution du code
plus fluide et rapide !
D ) Pour rechercher une date, lorsque c'est possible, "Match" est plus
efficace que "Find"
Une suggestion de code pour ta procédure
(pas sûr d'avoir compris ce que tu veux faire)
'-----------------------------------------
Sub TestPlage()
'Déclaration des variables
Dim LibDateOps As Range, ZoneDateOps As Range
Dim DateOps As Date, Col As Variant
Dim Cancel As Boolean
DateOps = DateSerial(2010, 3, 20)
With Sheets("DONNEES")
Set LibDateOps = .Range("A1", .Cells(1,
.Range("IV1").End(xlToLeft).Column)) End With
Col = Application.Match(CLng(DateOps), LibDateOps, 0)
If IsError(Col) Then
Cancel = True
Else
Set ZoneDateOps = LibDateOps.Offset(1, Col - 1) _
.Resize(, LibDateOps.Columns.Count - (Col - 1))
MsgBox "ZoneDateOps = " & ZoneDateOps.Address
End If
End Sub
'-----------------------------------------
Écrire une procédure en VBA n'est pas toujours facile, mais écrire
le libellé de sa question devrait l'être davantage... moi je trouve la
formulation déficiente !
Voici ma dernière réponse sur ce fil
Écrire une procédure en VBA n'est pas toujours facile, mais écrire
le libellé de sa question devrait l'être davantage... moi je trouve la
formulation déficiente !
Voici ma dernière réponse sur ce fil
Écrire une procédure en VBA n'est pas toujours facile, mais écrire
le libellé de sa question devrait l'être davantage... moi je trouve la
formulation déficiente !
Voici ma dernière réponse sur ce fil