Range Cells select plante Oô Urgent

lafouine4478 · 18 Février 2010

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 · 18 Février 2010

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 · 18 Février 2010

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 · 18 Février 2010

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

Code:

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 · 18 Février 2010

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

Range Cells select plante Oô Urgent

lafouine4478

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

lafouine4478

XLDnaute Nouveau

tototiti2008

XLDnaute Barbatruc

lafouine4478

XLDnaute Nouveau

Discussions similaires