Método Select de la clase Range Resuelto

Question

Hola a todos,

tengo un código VBA que me permite crear un gráfico a partir del número de ocurrencias de cada entrada.

Algunas entradas tienen una ocurrencia nula, y me gustaría que no aparezcan en mi gráfico.
Para ello, antes de la creación del gráfico, he añadido las siguientes líneas de código que me permiten ocultar las filas cuya ocurrencia es cero.

 ''''''''''''''''''''''Ocultación de ocurrencias nulas'''''''''''''''''''''''''''' linea2 = 27 Do Until IsEmpty(Cells(linea2, "B")) If Cells(linea2, "B").Value = 0 Then Rows(linea2).Select Selection.EntireRow.Hidden = True linea2 = linea2 + 1 Else linea2 = linea2 + 1 End If Loop

Este código funciona muy bien cuando está en un módulo aparte, pero cuando lo añado a mi código general que se activa al hacer clic en un botón, ya no funciona....

Tengo un error de ejecución 1004 que aparece y me dice que "el método Select de la clase Range ha fallado" ... La depuración me indica que es esta línea la que causa el problema:

Rows(línea2).Select

He intentado reemplazar

Rows(línea2).Select

por

Range(línea2:línea2).Select

pero tampoco funciona....

¿Alguna idea de por qué funciona en un módulo y no en el código global?
Gracias de antemano!

Configuración: Windows 7 / Chrome 53.0.2785.116

michel_m · Answer

hola,

sin ver el código o la parte general del código ya que es él quien impide...

pero desde ahora podrías mejorar tu código
en VBA, se evita al máximo los "select" y sea cual sea el if, incrementas...

If Cells(ligne2, "B") = 0 Then
 Rows(ligne2).Hidden = True
 End If
 ligne2 = ligne2 + 1

--
Michel

ThauTheme · Answer

Hola el hilo, hola el foro,

Sin mirar en detalle el código que nos proporcionas (¿por qué el código y no el archivo?...), tal vez una explicación.
Si ejecutas un código, desde una pestaña, que hace referencia a otra pestaña, necesitas especificar el nombre de la pestaña cada vez. Por ejemplo, creo un botón en la pestaña Hoja1 con el siguiente código:

Sheets("Hoja2").Select Rows(2).Select

¡Eso va a fallar!...

Necesito escribir:

Sheets("Hoja2").Select Sheets("Hoja2").Rows(2).Select

para que funcione...

--
Hasta luego,
ThauTheme

Nashimok · Answer

Pero si hago

Sheets("Resumen gráfico").Activate

al principio de mi código, ¿no necesito llamar a mi hoja para cada acción, verdad?

Porque por el momento, tengo


Sheets("Resumen gráfico").Activate
.
.
.
.
Filas(ligne2).Seleccionar

y pensé que eso me permitía no tener que llamar

Sheets("Resumen gráfico").método

cada vez.

jordane45 · Answer

Hola,

Algunos problemas en tu código...
En la función FeuillExist, por ejemplo:

 Function FeuilleExiste1(MaFeuille As String) As Boolean 'Devuelve "TRUE" si la hoja "MaFeuille" existe Dim Feuille As Worksheet FeuilleExiste = False For Each Feuille In Worksheets If (Feuille.Name = "Resumen gráfico") Then FeuilleExiste1 = True End If Next Feuille End Function

Tienes dos nombres de variables diferentes...
FeuilleExiste y FeuilleExiste1 ...... No, solo debes tener el mismo (y esta variable tiene el mismo nombre que el nombre de tu función... FeuilleExiste1)

[edit]
Te propongo un código un poco más adecuado a tus necesidades:

 Function FExist(NomF As String) As Boolean ' prueba si la hoja existe Application.ScreenUpdating = False On Error Resume Next FExist = Not Sheets(NomF) Is Nothing Application.ScreenUpdating = True End Function

Y para utilizarlo:

 NomFeuille = "Resumen gráfico" Reponse = FExist(NomFeuille)

Luego.... NO UTILICES CARACTERES ACENTUADOS como nombres de variables!

Y trata de dividir tu código en varias funciones... porque está demasiado largo en un solo bloque.... para depurar es un verdadero lío total!

Y por último.... Dado que en ciertos lugares de tu código haces referencia a otras hojas... es normal que debas volver a hacer referencia a tu hoja ("Resumen Gráfico") para que tu macro sepa dónde está....

Atentamente,
Jordane

ThauTheme · Answer

Re,  Si tu código está en un módulo estándar, no. Pero si está en una pestaña, sí. Prueba las dos líneas de ejemplo que te propuse y lo verás...

Nashimok · Answer

¡Hola a todos!

Encontrarán en este enlace el archivo completo.
Compila, así que espero que no sea demasiado feo en cuanto al código ;)

http://www.cjoint.com/c/FIBwCek6M7f

He tratado de seguir los consejos, eliminando los

.Select

, y he utilizado

With .... End With

en su lugar.

También he separado el código en diferentes módulos. Les confieso que aprendí sobre la marcha, sin seguir realmente un tutorial (no muy bien en cuanto a la sintaxis...), así que en cuanto a la organización de mi proyecto, no sé muy bien cómo está.

En resumen, ahora hace lo que quiero, así que estoy contenta, y no tengo muchas preguntas.
Si tienen tiempo para revisar el código y darme consejos para que pueda mejorar todo esto, lo agradecería.

¡De todos modos, gracias por su ayuda!

ThauTheme · Answer

Hola hilo, hola foro,

No tengo mucho tiempo para revisar todos los códigos... Pero solo una observación. En el módulo 5, procedimiento graph_def_risque, tienes, si he contado bien, 2 veces 66 variables. Te aconsejo que reemplaces esas 66 variables por un array de variables de 66 entradas. He usado un array de 2 filas y 66 columnas porque no sabía si necesitarías más adelante el nombre de la variable.
En la primera fila se almacenan los nombres de las variables y en la segunda las valores. He nombrado TBCCO el array de variables cco y TBR el array de variables R. Da como resultado:

Dim TBOCC(1, 1 To 66) As Variant Dim TBR(1, 1 To 66) As Variant TBOCC(0, 1) = "occ_101" TBOCC(1, 1) = Application.CountIf(Worksheets("Riesgos altos").Range("G:G"), "101") TBOCC(0, 2) = "occ_102" TBOCC(1, 1) = Application.CountIf(Worksheets("Riesgos altos").Range("G:G"), "102") '... TBOCC(0, 66) = occ_1605 TBOCC(1, 66) = Application.CountIf(Worksheets("Riesgos altos").Range("G:G"), "1605") TBR(0, 1) = "r101" TBR(1, 1) = "suelo deslizante" TBR(0, 2) = "r102" TBR(1, 1) = "suelo desigual" '... TBR(0, 66) = "r605" TBR(1, 66) = "coactividad"

Por el momento no ganas nada, pero después porque vas a eliminar todas las líneas:

Cells(27, "A") = r101 '... Cells(92, "B") = occ_1605

por un solo bucle:

For X = 1 To 66 Cells(26 + X, "A") = TBR(1, X) Cells(26 + X, "B") = TBOCC(1, X) Next X

si no necesitas el nombre de las variables, se simplifica así:

Dim TBOCC(1 to 66) As Variant Dim TBR(1 To 66) As Variant TBOCC(1) = Application.CountIf(Worksheets("Riesgos altos").Range("G:G"), "101") TBR(1) = "suelo deslizante" '... TBOCC(66) = Application.CountIf(Worksheets("Riesgos altos").Range("G:G"), "1605") TBR(66) = "coactividad"

el bucle se convierte en:

For X = 1 To 66 Cells(26 + X, "A") = TBR(X) Cells(26 + X, "B") = TBOCC(X) Next X

Hasta luego,
ThauTheme

--
Hasta luego,
ThauTheme

Método Select de la clase Range

7 respuestas

Hola, ¿por qué no puedo abrir mis videos recientes?

Demasiada publicidad durante los juegos

Busco una obra de teatro

Eliminar totaladblock

Imposible enviar sms

Teclado en la red x

Mi tableta surface pro 4 está saturada

Linux para reemplazar w10

2 errores por resolver

Cómo instalar un esim en un reloj inteligente samsung