Range Cells select plante Oô Urgent

[lafouine4478]

Range Cells select plante Oô Urgent (Resolu)

Bonjour,

Petit soucis avec la commande Range, cells et select si je mes la valeur qui correspnd A cells (l,0) ca fonctionne. j'ai parcouru le forum est pour une selection de cellule ces cette commande qui est utilisé "Range(Cells(1, 0)).Select" Lele en remplacant L par ca valeur meme plantage. Je n'y comprends plus rien

Sub Doublons()

' Traitement doublons Orléans demandes clôturées
Sheets("Feuil1").Select
Dim L As Integer
Range("A3").Select

Do Until IsEmpty(ActiveCell)

ActiveCell.Value = StrConv(ActiveCell, vbUpperCase)
ActiveCell.Offset(1, 0).Select

Loop

Range("A3").Select
' Tri
' ActiveCell.CurrentRegion.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlYes
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""

If ActiveCell = donnee1 Then
x = x + 1
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Copy
If x = 1 Then
Range("J7").Select
ActiveSheet.Paste
End If
L = ActiveCell.Row + 1
Range(Cells(L, 0)).Select <== ca plante sur cette instruction
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select

End If
Wend

End Sub

 

[tototiti2008]

Re : Range Cells select plante Oô Urgent

Bonjour lafouine,

rien n'est jamais urgent sur le forum... nous sommes tous bénévoles.

Cells(L,0).select
demande de sélectionner la cellule Ligne L et colonne 0
or il n'y a pas de colonne 0 dans la feuille de calcul

 

[lafouine4478]

Re : Range Cells select plante Oô Urgent

A oui quel nooob et désolé pour le urgent ca fait 2 jours que je bug sur cette commande.

J'ai donc changer le 0 par 1 ( la premiere colonne mais pareil )

Tu ù'inqique Cells(L, 1).select pas besoin du Range ?

 

[tototiti2008]

Re : Range Cells select plante Oô Urgent

Re,

Range est utile si tu veux sélectionner plusieurs cellules

par exemple, pour sélectionner de A1 à A5

Range("A1:A5").select
 
ou
 
Range(Range("A1"),Range("A5)).select
 
ou
 
Range(Cells(1,1),cells(5,1)).select

si ça plante toujours, que vaut L ?

 

[lafouine4478]

Re : Range Cells select plante Oô Urgent

Non en prenant cells (L, 1).select ca fonctionne je te remercie c'est bein cette histoire de colonne 0 je suis une bille franchement je le savais

Je te reremercie